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

Question

Информатика

Минаша

28 июля, 00:27

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

+5

Ответы (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.