Информатика, опубликовано 2018-08-22 22:59:39 by Гость
Пожалуйста помогите, составьте на Паскале программу упорядочения по возрастанию значений в трёх переменных: X, Y, Z.
Ответ оставил Гость
Program chisla;
uses crt;
var a,b,c : integer;
begin
Writeln(Введите значения X Y Z: );
Readln(a,b,c);
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
if b>c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
writeln(X=,a, Y=,b, Z=,c);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на