Составить программу в паскале с использованием циклических операторов:

Среди всех чисел, меньших к (к<=999) указать те, сумма цифр которых равна даномучислу n

Question

Информатика

Вестита

4 мая, 20:48

Составить программу в паскале с использованием циклических операторов:

Среди всех чисел, меньших к (к<=999) указать те, сумма цифр которых равна даномучислу n

+3

Ответы (1)

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

Хрисанф · Answer 1

function sum (i, n: integer) : boolean;

var

a, b: integer;

begin

a : = i;

repeat

b : = b + a mod 10;

a : = a div 10;

until (a = 0) ;

sum : = (b = n) ;

end;

var

n, i, k: integer;

begin

readln (n, k) ;

for i : = 1 to k do

if sum (i, n) then

writeln (i) ;

end.

Составить программу в паскале с использованием циклических операторов:Среди всех чисел, меньших к (к<=999) указать те, сумма цифр которых равна даномучислу n

Составить программу в паскале с использованием циклических операторов:

Среди всех чисел, меньших к (к<=999) указать те, сумма цифр которых равна даномучислу n