КТО РЕШИТ , ТОМУ 55 БАЛЛОВ!!! составить программу нахождения суммы чисел кратным...

October 2021 1 11 Report

КТО РЕШИТ , ТОМУ 55 БАЛЛОВ!!! составить программу нахождения суммы чисел кратным 3, от 12 до 36 (цикл)

антагонист

Var a,b,c:integer;
begin
for a:=12 to 36 do begin
if a mod 3 = 0 then writeln(a);
end;
end.

2 votes Thanks 1

ekaterina99 спасибо :)

антагонист вы не отметите мой ответ как лучший?

антагонист буду признателен

ekaterina99 если не будет других ответов , то Ваш ответ лучший!