ПАСКАЛЬ! определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно

Ответы:

Yaroslava Zaec

10-05-2015 05:24

var i,k:integer;begink:=0;for i:=1 to 1000 do if ((i mod 5 = 0) and ((i mod 7 = 0)) then k:=k+1;writeln("Количество натуральных чисел до 1000, которые делятся на 5 и 7 без остатка: ",k);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ДАНЯ АПУХТИН

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «ПАСКАЛЬ! определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно» от пользователя ДАНЯ АПУХТИН в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!