если не использовать дополнительных переменных(для чисел),то:
var x,y: integer;
begin
read(x,y);
x: =x+y;
y: =x-y;
x: =x-y;
writeln(x, ' ',y);
end.
можно и через дополнительную переменную:
var x,y,s: integer;
begin
read(x,y);
s: =x;
x: =y;
y: =s;
writeln(x, ' ',y);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Какая информация занимает меньше всего места на компьютере а)текст б)фотография в)музыка г)видео