Вопрос по информатике:
ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧЕЙ ПО ПАСКАЛЮ!
- Найти сумму кубов тех двузначных чисел, первая цифра которых четная, а вторая равна 1. (должен быть цикл for)
Пожаловаться
- 10.10.2015 09:27
- Информатика
- remove_red_eye 9708
- thumb_up 13
Ответы и объяснения 1
Var S,i:integer;
Begin
S:=0;
For i:= 21 to 81 do
if ((i div 10) mod 2 = 0 )and(i mod 10 = 1) then S:=S+i*i*i;
Write('S = ',S);
End.
Begin
S:=0;
For i:= 21 to 81 do
if ((i div 10) mod 2 = 0 )and(i mod 10 = 1) then S:=S+i*i*i;
Write('S = ',S);
End.
Пожаловаться
- 11.10.2015 11:30
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы