найти количество всех целых трехзначных чисел и вывести их на экран сумма цифр которых равна заданному числу d
!! паскаль через цикл пока по схеме
Приложения:
Ответы
Ответ дал:
0
var d,a,a1,a2,a3,k: integer;
begin
readln(d);
a:=100; k:=0;
while a<=999 do
begin
a1:=a mod 10;
a2:=(a div 10) mod 10;
a3:=a div 100;
if a1+a2+a3 = d then
begin
write(a,' ');
k:=k+1;
end;
a:=a+1;
end;
if k=0
then writeln('Нет чисел')
else writeln('Количество чисел ',k);
end.
Пример:
25
799 889 898 979 988 997 Количество чисел 6
Ответ дал:
0
помогите пж
Ответ дал:
0
)))))
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад