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

Question

Информатика: Вычислить количество чисел, кратных 4, на отрезке от 49 до 215. по паскалю!

Vjjiychyuy · Answer

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.

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