Ответы и объяснения

2013-11-21T11:31:50+04:00
Program fo;
var z,x,c,i:integer;
beginwriteln('Введите c')
;readln(c);
z:=0 ;
for i:=20 to c do
if i mod 2=0 then
z:=z+1;
writeln(z);
end.
это не правильно
Сечас исправлю
Program fo;
var z,x,c,i:integer;
begin
writeln('Введите c');
readln(c);
z:=0;
x:=1;
for i:=20 to c do
if i mod 2=0 then
begin
z:=z+i ;
x:=x*i ;
end;
writeln(z);
writeln(x);
end.
спасибо