определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7
в паскале авс
ПОМОГИТЕЕЕЕЕ!!!
Program zadanie1;
var
i:integer;
begin
for i:=100 to 999 do
Begin
if ( i mod 3 = 0 ) and ( i mod 5 = 0 ) and ( i mod 7 = 0 )
then writeln(i);
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
