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

Question

Информатика: Найти количество четных чисел в промежутке от 1 до n. n вводится с клавиатуры. в !

iavorskayavika · Answer

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....