Помогите пожалуйста!
Pascal
Задать с помощью условного оператора следующие действия: большее из двух заданных чисел уменьшить на 5.
Ответы на вопрос
Ответил LRSM
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.
ок!
спасибо
Новые вопросы
Английский язык,
2 года назад
Русский язык,
2 года назад
Литература,
2 года назад
Математика,
8 лет назад
Математика,
8 лет назад