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

Question

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

Answer 1

Uses Crt;
var s,i:integer;
begin
ClrScr;
i:=0;
s:=0;

While i<10 do <br>Begin
i:=i+2;
s:=s+i;
end;
writeln('Summa chetnih ot 1 do 10 = ', s);

i:=1;
s:=1;
While i<9 do <br>Begin
i:=i+2;
s:=s*i;
end;
writeln('Proizv nechetnih ot 1 do 10 = ', s);
readln;
end.

Comments

это не то решение , скопировать я то же могу...