Увеличить значение переменной С в двое не используя операции умножения

Вопрос школьника по предмету Информатика

Увеличить значение переменной С в двое не используя операции умножения

Ответ учителя по предмету Информатика

var c:integer;

begin

write(‘Введите с: ‘);

readln(c);

c:=c+c;

writeln(‘c = ‘,c);

end.

Пример:

Введите с: 16

c = 32