Паскаль(желательно турбо)!!
Приложения:
Ответы на вопрос
Ответил LikeSmileLJkee
0
Procedure maxmin(var x: real; var y: real);
var a: real;
begin
if (x<y) then begin
a:=x;
x:=y;
y:=a;
end;
end;
var a,b,c:real;
begin
writeln('Введите числа a,b,c: ');
readln(a,b,c);
if (a<b) then maxmin(a,b);
if (b<c) then maxmin(b,c);
writeln(a,' ',b,' ',c);
readln;
end.
var a: real;
begin
if (x<y) then begin
a:=x;
x:=y;
y:=a;
end;
end;
var a,b,c:real;
begin
writeln('Введите числа a,b,c: ');
readln(a,b,c);
if (a<b) then maxmin(a,b);
if (b<c) then maxmin(b,c);
writeln(a,' ',b,' ',c);
readln;
end.
Ответил qawkaz
0
Я оформил, на них уже три дня не могут ответить, вот только ты помог мне
Ответил qawkaz
0
https://znanija.com/task/30316201
Ответил LikeSmileLJkee
0
Чуть позже просмотрю тогда, чем смогу - помогу
Ответил qawkaz
0
Это одно
Ответил qawkaz
0
Сейчас другое скину
Новые вопросы
Другие предметы,
1 год назад
Другие предметы,
1 год назад
История,
7 лет назад
Алгебра,
7 лет назад
История,
8 лет назад