Найти количество четных чисел в промежутке от 1 до N. N вводится с клавиатуры. В Паскале!!!

2

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

2013-05-20T15:30:50+00:00
Лучший Ответ!
2013-05-20T15:31:13+00:00

1.program AB;
2.var s, n : integer;
3.begin
4)s:=0;
5.for n:=1 to 10 do if n mod 2=0 then s:=s+1;
6.writeln(s);
7.end.