Напишите пожалуйста программу для того, чтобы:1) Найти сумму нечетных чисел в интервале от 1 до 202) Найти сумму четных чисел в интервале от 1 до 20
Напишите пожалуйста программу для того, чтобы:
1) Найти сумму нечетных чисел в интервале от 1 до 20
2) Найти сумму четных чисел в интервале от 1 до 20
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var i,s1,s2:integer;
begin
for i:=1 to 20 do
begin
if(i mod 2=1)then s1:=s1+i else s2:=s2+i;
end;
writeln('сумма не чётных чисел на интервале от 1 до 20 ',s1);
writeln('сумма чётных чисел на интервале от 1 до 20 ',s2);
end.
Не нашли ответ?
Похожие вопросы