AraniusПользователь вводит числа до тех пор, пока не введет число 0. Нужно вывести все введенные числа в обратном порядке (0 не входит в них, а является просто признаком завершения)ПримерПользователь вводит435 680Программа выводит86534на PascalДАЮ 35 поинтов
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
var k, x, i: integer;
a: array[1. . 100000] of integer;
begin
k := 0;
while True do begin
k += 1;
read(x);
if x = 0 then break;
a[k] := x;
end;
for i:=k-1 downto 1 do begin
writeln(a[i])
end;
end.
199
SirannЧтобы ответить необходимо зарегистрироваться.
