Программа для нахождении суммы всех чисел кратных 3 но не кратных 5
Программа для нахождении суммы всех чисел кратных 3 но не кратных 5
Гость
Ответ(ы) на вопрос:
Гостьvar s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if (i mod 3 = 0) and (i mod 5 <> 0) then s:=s+i;
writeln(s);
end.
Гость// Pascal ABC.NET
var
sum : integer;
i : integer;
begin
for i := 10 to 99 do
if (i mod 3 = 0) and (i mod 5 <> 0) then
sum += i;
writeln('Summa is ', sum);
end.
Не нашли ответ?
Похожие вопросы