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

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


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

Поменять местами содержимое переменных A и B и вывести новые значения A и B.



Решения задачи используя третью переменную для замены:

uses
  PT4;

var
  a, b, t: real;

begin
  Task('Begin22');
  read(a, b);
  t := a; a := b; b := t;
  write(a, b);
end.

Решения не используя третью переменную, замена помощью сложения:

uses
  PT4;

var
  a, b: real;

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

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