Предмет: Информатика,
автор: anastasjya1
напишите программу которая производит обмен значений переменных х и у если х больше у
Ответы
Автор ответа:
0
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
end.
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
end.
Приложения:
Похожие вопросы
Предмет: Литература,
автор: arajlymorynbajkyzy
Предмет: Математика,
автор: vyydrra
Предмет: Биология,
автор: ivangoryagin1337
Предмет: Алгебра,
автор: Аноним
Предмет: Геометрия,
автор: ИльяМинЕЕв