Найти сумму цифр, делящихся на 3 из промежутка [20;40]
Ответы на вопрос
Ответил estengseant
0
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.
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.
Новые вопросы
Геометрия,
8 лет назад
Литература,
9 лет назад