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

2. Написать функцию, которая находит из двух целых чисел наиболь-шейке число. (язык Pascal)

Задать свой вопрос
1 ответ

program raf105;

var x,y,z:integer;

procedure max1 (a,b:integer);

begin

 if agt;b

   then z:=a

   else z:=b;

end;

begin

write('Введите 2 числа через пробел: ');

readln(x,y);

max1(x,y);

writeln('Большее число: ',z);

end.

Язык PascalABC

Слава Городничук
Все верно, спасибо)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт