Найти сумму цифр, делящихся на 3 из промежутка [20; 40]

Question

Информатика

Ялина

15 мая, 07:15

Найти сумму цифр, делящихся на 3 из промежутка [20; 40]

+3

Ответы (1)

Знаешь ответ?

Пакстон · Answer 1

Var i, sum: integer;

Begin

sum:=0;

for i:=20 to 40 do

begin

if i mod 3=0 then

begin

writeln ('Число: ', i);

sum:=sum+i;

end;

end;

writeln ('Сумма чисел: ', sum);

End.