Составьте программу которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10

Question

Информатика

Ираклий

7 марта, 04:18

Составьте программу которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10

+4

Ответы (1)

Знаете ответ на вопрос?

Маримьяна · Answer 1

Uses Crt;

var s, i:integer;

begin ClrScr;

i:=0;

s:=0;

While i<10 do

Begin i:=i+2;

s:=s+i;

end;

writeln ('Сумма четных = ', s) ;

i:=1;

s:=1;

While i<9 do

Begin i:=i+2;

s:=s*i;

end;

writeln ('Произведение нечетных = ', s) ;

readln;

end.