Сколько существует трёхзначных чисел сумма цифр которых делится на 5? Вывести их.
5-9 класс
|
Программа паскаль
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.
программу надо написать
101 102.103,104,105,764,982,435.478,856,.............
да не надо просто числа писать программу надо
начинать надо так: program summa(это название программы и так далее надо написать программу)
Другие вопросы из категории
результаты преобразования. Задача Коли — отгадать это правило. Ниже приведены вопросы Коли и ответы Пети в нескольких таких играх. Попробуйте отгадать, какое правило задумал Петя в каждой игре.
0 x не равно 10
величины x и y -Положительны
x>0
X€[O;4]
x € (-5;5]
x € [o;+ знак бесконечности )
величина x -чётная
величина x -нечётная
x кратно 3
x делится без остатка на 2 и на 3
x не делится на 5