Дан ряд четырехзначных натуральных чисел. Из него вычеркивают числа, в которых сумма двух первых цифр равна сумме двух последних. Составить алгоритм и описать его на Паскале, позволяющий по заданному номеру N вывести соответствующее ему число в новой последовательности.

Question

Информатика

Аверий

26 июня, 05:57

Дан ряд четырехзначных натуральных чисел. Из него вычеркивают числа, в которых сумма двух первых цифр равна сумме двух последних. Составить алгоритм и описать его на Паскале, позволяющий по заданному номеру N вывести соответствующее ему число в новой последовательности.

+2

Ответы (1)

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

Полюся · Answer 1

Var n, cnt, i : integer;

begin

readln (n) ;

cnt : = 0;

i : = 1000;

while cnt < n do begin

if i mod 10 + (i div 10) mod 10 (i div 100) mod 10 + i div 1000 then

cnt : = cnt + 1;

i : = i + 1;

end;

writeln (i - 1) ;

end.