напишите программу для паскаля.
условие: обменять значения двух переменных, используя третью(буферную) переменную
var
a, b, buf:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
buf := a;
a := b;
b := buf;
writeln('a = ', a);
writeln('b = ', b);
end.
// без буферной переменной
a, b:real;
a := a + b;
b := a - b;
a := a - b;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a, b, buf:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
buf := a;
a := b;
b := buf;
writeln('a = ', a);
writeln('b = ', b);
end.
// без буферной переменной
var
a, b:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
a := a + b;
b := a - b;
a := a - b;
writeln('a = ', a);
writeln('b = ', b);
end.