Question

Сколько раз умножить N на 3, чтобы сумма привысила 100?

Answer 1

program N3;var b,a:integer;begin  b:=0;  write('Введите число - ');readln(a);  repeat        a:=a*3;      b:=b+1;  until a>100;  writeln('Нужно умножить ', b, ' раз');end.

Answer 2

Спасибо огромное!