Предмет: Информатика,
автор: yaroslavcevoffice
Помогите пожалуйста!
Pascal
Задать с помощью условного оператора следующие действия: большее из двух заданных чисел уменьшить на 5.
Ответы
Автор ответа:
1
PascalABC.NET:
- ##
- var (x, y) := ReadReal2('Введите 2 числа:');
- if x>y then x-=5
- else if y>x then y-=5;
- Print('Результат:', x, y)
Приложения:
yaroslavcevoffice:
благодарю!!!!!
Для turbo/free/и др. pascal:
var x, y: real;
begin
read(x, y);
if x>y then x-=5
else if y>x then y-=5;
write(x, ' ', y)
end.
var x, y: real;
begin
read(x, y);
if x>y then x-=5
else if y>x then y-=5;
write(x, ' ', y)
end.
Даже так:
var x, y: real;
begin
read(x, y);
if x>y then x := x - 5
else if y>x then y := y - 5;
write(x, ' ', y)
end.
var x, y: real;
begin
read(x, y);
if x>y then x := x - 5
else if y>x then y := y - 5;
write(x, ' ', y)
end.
ок!
спасибо
Похожие вопросы
Предмет: Алгебра,
автор: pap123213
Предмет: Физика,
автор: spieluhr14
Предмет: Математика,
автор: Denis1324
Предмет: Математика,
автор: Далв2017