Вопрос по информатике:
Тема: Циклы.
Подсчитать сумму НЕЧЕТНЫХ чисел от 1 до 99 в ПАСКАЛЕ
- 16.08.2018 01:38
- Информатика
- remove_red_eye 20129
- thumb_up 17
Ответы и объяснения 2
Var sum,i:Integer;
Begin
for i:=1 to 99 do
if (i mod 20) then sum:=sum+i;
Writeln('SUM =', sum);
end.
- 17.08.2018 17:26
- thumb_up 21
Var
i,s:integer;
begin
i:=1; s:=0;
while i<=99 do
begin s:=s+i; i:=i+2 end;
Writeln(s)
end.
Тестовое решение:
2500
- 18.08.2018 21:51
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.