Напишите программу, которая суммирует все четные числа от 15 до 25, а для всех нечетных находит сумму квадратов этиз числех

Question

Информатика

Майрам

14 мая, 10:10

Напишите программу, которая суммирует все четные числа от 15 до 25, а для всех нечетных находит сумму квадратов этиз числех

+1

Ответы (1)

Знаете ответ?

Шарик · Answer 1

Var i, sum, summ: Integer;

begin

for i:=15 to 25 do

begin

if i mod 2=0 then Inc (sum, i) else

if i mod 20 then Inc (summ, (i*i)) ;

end;

writeln ('Чётные: ', sum) ;

writeln ('Нечётные: ', summ) ;

end.