Задача по паскалю.
У ведіть два числа.Менше замініть сумою цих чисел, більше - їх різницею. Видіть результати.
var a,b,x,y: integer;
begin
writeln(vvedite 2 chisla);
readln(a,b);
if a-b>0 then
begin
x:=a-b;
y:=a+b;
end
else
begin
x:=a+b;
y:=b-a;
end;
write(a = ,x,, b = ,y);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
