В ПАСКАЛЕ ,ПОМОГИТЕ!!!Даны два числа. Большее из них замените разностью чисел, а меньшее — суммой. Тест для проверки: На входе программы а=10, b=2. В результате a=8, b=12.
В ПАСКАЛЕ ,ПОМОГИТЕ!!!Даны
два числа. Большее из них замените разностью чисел, а меньшее — суммой.
Тест
для проверки: На входе программы
а=10, b=2. В результате a=8, b=12.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:real;
begin
read(a,b);
if a>b then
begin
a:=a-b;
b:=2*b+a;
end
else
begin
b:=b-a;
a:=2*a+b;
end;
write(a,' ',b)
end.
Не нашли ответ?
Похожие вопросы