Найдите все трехзначные числа, сумма цифр которых равна данному целому числу. (pascal)

Question

Информатика

Валенсия

10 июня, 16:05

Найдите все трехзначные числа, сумма цифр которых равна данному целому числу. (pascal)

+2

Ответы (1)

Знаете ответ на вопрос?

Феликс · Answer 1

uses crt;

var i, s, a, b, c, ch, o:integer;

begin

o:=0;

writeln (' Vvedite chislo ') ;

readln (ch) ;

for i:=100 to 999 do

begin

a:=i div 100;

b: = (i div 10) mod 10;

c:=i mod 10;

if ((a+b+c) = ch) then

begin

inc (o) ;

writeln (i) ;

end;

end;

if o = 0 then writeln ('error!') ;

readln;

end.