Вычислить количество чисел, кратных 4, на отрезке от 49 до 215. ...

Женя

Program abc;

var a, b, c:integer;

Begin

a:=0;

c:=4; 

for b:=49 to 215 do

if b/c mod=0 then a:=a+1

write ('Колтчество решений ', a);

end.

 

(паскаль давно не писал, вроде так)