Ответы
Ответ дал:
0
var a,b:integer;
begin
writeln(a);
readln(a);
writeln(b);
readln(b);
if a>b then writeln(a, ', ', b) else writeln(b, ', ',a);
if a>b then writeln(a, ' - максимум') else writeln(b, ' - максимум');
end.
begin
writeln(a);
readln(a);
writeln(b);
readln(b);
if a>b then writeln(a, ', ', b) else writeln(b, ', ',a);
if a>b then writeln(a, ' - максимум') else writeln(b, ' - максимум');
end.
Ответ дал:
0
По убыванию! А у тебя наоборот. И упорядочивает! А не выводит в нужном порядке!
Ответ дал:
0
По убыванию это от большего к меньшему, проверяйте программу. Также моя программа упорядочивает числа от большего к меньшему и находит максимальное из них.
Ответ дал:
0
Да, прости.. Косяк.. На твоя программа просто выводит в нужном порядке! А не упорядочивает!!
Ответ дал:
0
uses crt;
var x,y,max: real;
begin
read(x,y);
writeln;
if x>y then begin
write(x,' ',y);
max:=x;
end
else begin
max:=y;
write(y,' ',x)
end;
writeln;
writeln('Максимум: ',max);
end.
var x,y,max: real;
begin
read(x,y);
writeln;
if x>y then begin
write(x,' ',y);
max:=x;
end
else begin
max:=y;
write(y,' ',x)
end;
writeln;
writeln('Максимум: ',max);
end.
Ответ дал:
0
См. Коммент выше! И максимум можно искать намного проще.. Есть стандартная процедурка в модуле math (я про фрии), а со своими недоделками абц далеко не уйдешь..
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад