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

Your1sad1waifu Your1sad1waifu    1   07.05.2019 16:31    0

Ответы
Гоша2285 Гоша2285  09.06.2020 15:44

program raf105;

var x,y,z:integer;

procedure max1 (a,b:integer);

begin

 if a>b

   then z:=a

   else z:=b;

end;

begin

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

readln(x,y);

max1(x,y);

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

end.

Язык PascalABC

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика