Question

Даны 3 переменные (a,b,c), надо поменять значение 3-ех переменных не делая 4-ую переменную. Я правильно все сделал или нет, и где тогда мои ошибки?

Program peremennie;

Var a: integer;

b: integer;

c: integer;

Begin

a:=32;

b:=11;

c:=5;

writeln (' Поменяй значеня чисел что бы получилось число 100, если a=32,b=11,c=5');

writeln( ' Введите первое число');

readln(a);

writeln( ' Введите второе число ');

readln(b);

writeln( ' Введите третье число');

readln(c);

writeln('Числа которые вы написале в сумме будут равны:',a+b+c);

end.

Answer 1

Если нужно поменять местами переменные, то я бы написал что-то подобное:

var a,b,c : integer;

begin

readln(a,b,c);

a := a + b + c;

b := a - b;

b := b - c;

c := a - b - c;

a := a - b - c;

writeln(a,' ', b, ' ',c);

end.

a получит значение от с, b получит значение от a, c получит значение от b