В паскале! Даны

два числа. Большее из них замените разностью чисел, а меньшее - суммой.

Тест

для проверки: На входе программы

а=10, b=2. В результате a=8, b=12.

Question

Информатика

Хариесса

12 декабря, 21:03

В паскале! Даны

два числа. Большее из них замените разностью чисел, а меньшее - суммой.

Тест

для проверки: На входе программы

а=10, b=2. В результате a=8, b=12.

+4

Ответы (1)

Знаете ответ на вопрос?

Генуха · Answer 1

Uses crt;

var a, b, s, r: integer;

begin

writeln ('Введите первое число') ;

readln (a) ;

writeln ('Введите второе число') ;

readln (b) ;

s:=a+b;

if a>b then

begin

r:=a-b;

a:=r;

b:=s;

end

else

begin

r:=b-a;

b:=r;

a:=s;

end;

writeln (a, b) ;

end.

В паскале! Даныдва числа. Большее из них замените разностью чисел, а меньшее - суммой.Тестдля проверки: На входе программыа=10, b=2. В результате a=8, b=12.

В паскале! Даны

два числа. Большее из них замените разностью чисел, а меньшее - суммой.

Тест

для проверки: На входе программы

а=10, b=2. В результате a=8, b=12.