По паскалю. у ведіть два числа.менше замініть сумою цих чисел, більше - їх різницею. видіть результати.

gbvf1 gbvf1    3   20.03.2019 23:00    0

Ответы
kulakovakatyus kulakovakatyus  26.05.2020 10:48

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика