Вычислить количество чисел, кратных 4, на отрезке от 49 до 215. ПО ПАСКАЛЮ!

Question

Вычислить количество чисел, кратных 4, на отрезке от 49 до 215. ПО ПАСКАЛЮ!

Экономика

Гость

Ответ(ы) на вопрос:

Accepted 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. (паскаль давно не писал, вроде так)