Урок 14.1 Задача 1

Primary tabs

Submitted by kuznmax on Sun, 09/25/2022 - 14:47

Forums:

Урок 14.1 Задача 1

Напишите процедуру, которая просит пользователя ввести три числа, и потом выводит их в обратном порядке

program Project1;
procedure pishi(a: integer; b: integer; c: integer);

begin

  writeln('Введите целое число');
  readln(a);
  writeln('Введите целое число');
  readln(b);
  writeln('Введите целое число');
  readln(c);
end;


  pishi(c, b, a );
  writeln('Конец!');
end.
Пока получилось только так
  • Log in to post comments
  • 670 reads
vedro-compota's picture

vedro-compota

Tue, 09/27/2022 - 20:26

поправить с учетом разобра

_____________
матфак вгу и остальная классика =)

kuznmax

Sat, 10/01/2022 - 14:56

program Project1;
var i: integer;

procedure pishi();
var b, c, a: integer;
begin
  writeln('Введите целое чсило');
  readln(a);
  writeln('Введите целое чсило');
  readln(b);
  writeln('Введите целое чсило');
  readln(c);
  writeln(c, b, a);
end;

begin
  pishi();
  writeln('Конец');

  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/05/2022 - 19:56

засчитано

_____________
матфак вгу и остальная классика =)