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

Question

Информатика

Авик

4 декабря, 06:39

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

+1

Ответы (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.