На паскале. Найти количество чисел которые делятся на 4 в указанном промежутке использовать цикл for

Question

Воислава

20 июля, 22:04

+3

Ответы (1)

Знаете ответ на вопрос?

Леруха · Answer 1

Var x1, x2, i, n : integer; begin

n: = 0;

readln (x1, x2) ; for i: = x1 to x2 do

if i mod 4 = 0 then n: = n + 1; writeln (n) ;

end.