Question

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

Answer 1

var c:integer;
begin
write('Введите с: ');
readln(c);
c:=c+c;
writeln('c = ',c);
end.

Пример:
Введите с: 16
c = 32