Имеется последовательность чисел 0, 5, 50, 55, 500, 505, 550, 555, 5000, 5005, 5050 и так далее (числа состоят только из 0 и 5, числа записаны в порядке возрастания). Написать программу, которая при вводе n-го числа выводит по порядку в этой последовательности число.
Например, при вводе числа 8, программа должна выводить 555.
При вводе числа 5, программа должны выводить 500.
Например, при вводе числа 8, программа должна выводить 555.
При вводе числа 5, программа должны выводить 500.
More Questions From This User See All
Answers & Comments
Verified answer
k - номер элемента ряда;i - номер текущего элемента ряда;
n - число кратное 5-ти;
m - для проверки числа, является ли оно элементом ряда
var
k,i: byte;
n, m: longint;
begin
readln(k);
n := 0;
i := 1;
while i < k do begin
n := n + 5;
m := n;
while m > 0 do begin
if (m mod 10 <> 5) and (m mod 10 <> 0) then
break;
m := m div 10;
end;
if m = 0 then i := i + 1;
end;
writeln(n);
end;