Ответы
Ответ дал:
0
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.
(паскаль давно не писал, вроде так)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад