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

Question

Информатика

Джонис

3 мая, 18:07

Найти сумму цифр, делящихся на 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.