Ответы
Ответ дал:
0
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
Ответ дал:
0
Все правильно, спасибо)
Вас заинтересует
2 года назад
2 года назад
7 лет назад
8 лет назад