Вывести на печать все трехзначные натуральные числа, сумма цифр которых равна заданному числу N.
PascalABC
Ответы
Ответ дал:
1
Ответ:
program abc;
var n,i,s:integer;
begin
readln(n);
if n<100 then
writeln('Vashe chislo ne 3-x.znachnoe')
else
for i:=100 to n do
begin
s:=s+i;
end;
writeln(s)
end.
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
7 лет назад