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

Question

Информатика

Олимпия

24 февраля, 18:44

Найдите все трехзначные числа, сумма цифр которых равна данному целому числу. (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.