Помогите пожалуйста!
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.
ок!
спасибо
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
9 лет назад