
Абрам
6 год назад
Написать программу Pascal, которая выводила бы число в обратной последовательности
ОТВЕТЫ

Пахомович
Aug 8, 2019
Procedure Chisla(n : Integer);
var a : Integer;
begin
if (n lt; 1) then
WriteLn
else
begin
Read(a);
if (Abs(a) lt; 1000) then
begin
Chisla(n-1);
Write(a, );
end
else
Chisla(n);
end;end; function ReadN() : Integer;
var
n : Integer;begin
Write(n=);
ReadLn(n);
if Not(n in [0..1000]) then
n := ReadN();
ReadN := n;end; var
n : Integer; begin
n := ReadN();
WriteLn(Введите , n, целых чисел через пробел и нажмите Enter);
Chisla(n);
end.
var a : Integer;
begin
if (n lt; 1) then
WriteLn
else
begin
Read(a);
if (Abs(a) lt; 1000) then
begin
Chisla(n-1);
Write(a, );
end
else
Chisla(n);
end;end; function ReadN() : Integer;
var
n : Integer;begin
Write(n=);
ReadLn(n);
if Not(n in [0..1000]) then
n := ReadN();
ReadN := n;end; var
n : Integer; begin
n := ReadN();
WriteLn(Введите , n, целых чисел через пробел и нажмите Enter);
Chisla(n);
end.
53
Смежные вопросы: