Определите и выведите на экран количество трехзначных чисел, которые делятся…

Question

81

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

в избранное ссылка

Знаете ответ?

regina · Accepted Answer

93

regina

29 марта 2023

Program zadanie1; vari: integer; beginfor 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.

комментировать

в избранное ссылка отблагодарить