Question

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

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.

Answer 2

а подставлять

Answer 3

куда

Answer 4

ниче не надо

Answer 5

почему

Answer 6

почему?????