Вопрос по информатике:
Найти сумму всех нечётных от 50 до 80, используя все три вида циклов.
- 16.03.2018 00:56
- Информатика
- remove_red_eye 19546
- thumb_up 13
Ответы и объяснения 1
Var i,s : Integer;
Begin
s:=0;
For i:=50 to 80 do If Odd(i) then s:=s+i;
Writeln(s);
s:=0;
i:=50;
While i<=80 do
Begin
If Odd(i) then s:=s+i;
Inc(i);
end;
Writeln(s);
s:=0;
i:=50;
Repeat
If Odd(i) then s:=s+i;
Inc(i);
Until i>80;
Writeln(s);
end.
- 16.03.2018 14:48
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.