Question

Пользователь вводит числа до тех пор, пока не введет число 0. Нужно вывести все введенные числа в обратном порядке (0 не входит в них, а является просто признаком завершения) Пример Пользователь вводит 4 3 5 6 8 0 Программа выводит 8 6 5 3 4 на Pascal ДАЮ 35 БАЛЛОВ!!!!!!!

Answer 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.

Answer 2

Конечно, вот программа на Pascal, которая позволяет пользователю вводить числа до тех пор, пока не будет введен 0, и затем выводит введенные числа в обратном порядке:

pascalCopy code
program ReverseNumbers;
var
  numArray: array[1..100] of Integer; // Предполагаем максимум 100 чисел
  num, count, i: Integer;
begin
  count := 0;
  
  // Ввод чисел и сохранение их в массиве
  repeat
    Write('Введите число (0 для завершения): ');
    Readln(num);
    if num <> 0 then
    begin
      count := count + 1;
      numArray[count] := num;
    end;
  until num = 0;
  
  // Вывод чисел в обратном порядке
  if count > 0 then
  begin
    Writeln('Числа в обратном порядке:');
    for i := count downto 1 do
      Write(numArray[i], ' ');
    Writeln;
  end
  else
    Writeln('Вы не ввели ни одного числа.');
end.

Просто скопируйте этот код в среду программирования Pascal и запустите его. Он позволит пользователю вводить числа до тех пор, пока не будет введен 0, и затем выведет введенные числа в обратном порядке.