Найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!

Ответы:

Людмила Михайлова

21-07-2017 08:15

var i, s: integer; begin s:= 0; for i:= 50 to 100 do if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i; writeln(s); readln; end.

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

Картинка с текстом вопроса от пользователя Виктория Лешкова

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!» от пользователя Виктория Лешкова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

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