75

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

vermel 06 апреля 2023

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

категория: информатика

41

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.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...