Номер 5, страница 178 - гдз по информатике 8 класс учебник Босова, Босова

Глава 4. Начала программирования на языке Паскаль. Параграф 4.4. Программирование разветвляющихся алгоритмов. Вопросы и задания - номер 5, страница 178.

Условие.

5. Разработайте, отладьте и протестируйте программу, которая производит обмен значений числовых переменных х и у, если х больше у. Для проверки правильности программы используйте тест:

Входные данные	Выходные данные
x>>5 y>>6	x=5 y=6
x>>6 y>>5	x=5 y=6

Решение.

var
x, y, t: integer;
begin
writeln ('Введите значение х');
readln (x);
writeln ('Введите значение у');
readln (y);
if x>y then
begin
t:=x;
x:=y;
y:=t;
end;
writeln ('x=', x);
writeln ('y=', y);
end.