Вычислить количество чисел, кратных 4, на отрезке - вопрос №449215223668 от DanilPRO20172007 23.01.2023 13:57

Question

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

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

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