Дан ряд четырехзначных натуральных чисел. Из него вычеркивают числа, в которых сумма двух первых цифр равна сумме двух последних. Составить алгоритм и описать его на Паскале, позволяющий по заданному номеру N вывести соответств...
Дан ряд четырехзначных натуральных чисел. Из него вычеркивают числа, в которых сумма двух первых цифр равна сумме двух последних. Составить алгоритм и описать его на Паскале, позволяющий по заданному номеру N вывести соответствующее ему число в новой последовательности.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы