В паскале!!!Даны два числа. Большее из них замените разностью чисел, а меньшее — суммой. Тест для проверки: На входе программы а=10, b=2. В результате a=8, b=12.
В паскале!!!Даны
два числа. Большее из них замените разностью чисел, а меньшее — суммой.
Тест
для проверки: На входе программы
а=10, b=2. В результате a=8, b=12.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы