Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C — Pascal(Паскаль)

program mest;
var a, b, c, tmp: real;
begin
    write('Введите a, b, и c: ');
    readln(a, b, c);
    tmp := c; {Присваиваем значение C дополнительной переменной}
    c := b;
    b := a;
    a := tmp;
    writeln('A=', a);
    writeln('B=', b);
    writeln('C=', c);
end.

Leave a Comment

+ 41 = 51