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

Question

Answer 1

41

paul86

15 февраля 2023

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.

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

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

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