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

Primary tabs

Submitted by kuznmax on Sun, 09/25/2022 - 15:01

Forums:

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

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

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

begin
  if (a>b) then
    pishi(a);
  else
    pishi(b);
  writeln('Конец!');
end.
Пока что так
  • Log in to post comments
  • 1853 reads
vedro-compota's picture

vedro-compota

Tue, 09/27/2022 - 20:44

решить по разбору (или самостоятельно)

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

kuznmax

Sat, 10/01/2022 - 15:09 

program Project1;
var d, g: integer;
begin
 if (a > b) then
   writeln('max=', a)
 else
   writeln('max=', b);
end;

begin
  writeln('d=');
  readln(d);
  writeln('g=');
  readln(g);

  pishi(g, d);

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

vedro-compota

Wed, 10/05/2022 - 19:57

засчитано

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