Составьте программу которая находит сумму четных чисел в и произведение нечетных чисел в диапазоне от 1 до 10
Составьте программу которая находит сумму четных чисел в и произведение нечетных чисел в диапазоне от 1 до 10
Гость
Ответ(ы) на вопрос:
Гостьvar i,a,s,s2:integer;
begin
s:=0;
s2:=1;
for i:=1 to 10 do
begin
if (i mod 2=0) then s:=s+i;
if (i mod 2=1) then s2:=s2*i;
end;
inc(i);
writeln('Сумма четных ',s);
writeln('Произведение нечетных ',s2);
end.
Не нашли ответ?
Похожие вопросы