Вычислить количество чисел, кратных 4, на отрезке - вопрос №224002449215 от Андрей22111111 13.08.2020 22:56

Question

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

Андрей22111111 · 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.

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