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