Найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!
Найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы