Определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7 в паскале авс ПОМОГИТЕЕЕЕЕ!!!

Определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы