Даны 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.
Если нужно поменять местами переменные, то я бы написал что-то подобное:
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