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

Сколько раз умножить N на 3, чтобы сумма привысила 100?
Гость
Ответ(ы) на вопрос:
Гость
Если N это не известное число тогда будут все числа при которых умножения на 3 будет давать произведение больше 100 (если N это-что другое тогда не знаю)
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы