Вопрос по информатике:
1) Найти сумму чисел от 10 до n, кратных 10, где (10<n).
2)Вывести последовательность четных чисел от m до n, где n<m.
Напишите пожалуйста решение на языке Паскаль с использованием циклов: "пока" и "для".
Пожаловаться
- 26.06.2018 20:16
- Информатика
- remove_red_eye 18467
- thumb_up 48
Ответы и объяснения 1
1)
Var i,s,n:longint;
Begin
write('N: ');
readln(n);
i:=0;s:=0;
While i
i:=i+10;
s:=s+i;
End;
writeln('Сумма = ',s);
readln;
End.
Var i,s,n:longint;
Begin
write('N: ');
readln(n);
i:=0;s:=0;
While i
i:=i+10;
s:=s+i;
End;
writeln('Сумма = ',s);
readln;
End.
Пожаловаться
- 27.06.2018 17:24
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы