Сколько существует трёхзначных чисел сумма цифр которых делится ** 5? Вывести...

Question

Сколько существует трёхзначных чисел сумма цифр которых делится на 5? Вывести их.
Программа паскаль

Comments

программу надо написать

---

да не надо просто числа писать программу надо

---

начинать надо так: program summa(это название программы и так далее надо написать программу)

Answer 1

Var
i, a, k, sum : integer;
begin
k:=0; 
for i:=100 to 999 do   
begin   
sum:=0;   
a:=i;   
while a>0 do     
begin     
sum:=sum+(a mod 10);     
a:=a div 10;     
end;     
if sum mod 5 = 0 then       
begin       
inc(k);       
write(i:5);       
end;   
end;   
writeln;   
writeln('Количество чисел: ', k);
end.