polix2008
01.02.2020 14:58

Даны 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.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
caesarkung
08.10.2021 20:50

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

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

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота