Составьте программу, заменяющую из двух данных чисел меньшее число модулем разности, а большее - модулем произведения этих чисел.
//Pascal ABC.NET 3.1 сборка 1256
Var
a,b,c:integer;
begin
read(a,b);
if a begin
c:=a;
a:=abs(a-b);
b:=abs(c*b);
end
else
begin
c:=b;
b:=abs(a-b);
a:=abs(a*c);
end;
writeln(a=,a);
write(b=,b);
end.
Пример ввода:
-3
4
Пример вывода:
a=7
b=12
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
