Question

из чисел от 100 до 999 вывести те, сумма цифр которых числу N, введенному с клавиатуры.

Answer 1

Program n1;
Uses CRT;
Var a,b,c,k,n,i: integer;
begin
ClrScr;
writeln('vvedite n');
readln(n);
For i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
If a+b+c=n then
begin
write(i:4);
k:=k+1;
end;
end;
if k=0 then writeln('takih chisel net');
readln
end.