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

Question

Максим Яковлев

Информатика

23 сентября, 00:43

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

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Евгений Кочетов · Answer 1

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.