Блог учителя Информатики

Решение задачи Begin23


Условие задачи:

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


uses
  PT4;

var
  a, b, c, t1, t2, t3: real;

begin
  Task('Begin23');
  read(a, b, c);
  t1 := a; t2 := b; t3 := c;
  b := t1; c := t2; a := t3;
  write(a, b, c);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий