Вывести на экран таблицу степеней числа 5 (от нулевой до 12-й)

@Andryshee · Регистрация: 16.09.2012

Студворк — интернет-сервис помощи студентам

Пользователь вводит целое положительное число m. Найти наименьшее натуральное число k, при котором 5(в степ)k > m. Вывести на экран таблицу степеней числа 5 (от нулевой до 12-й).

@CodeR · 01.10.2012, 14:26

Pascal

Var k,m,i:byte;
    p:real;
Begin
    write('Введите m: ');readln(m);
    p:=1;k:=0;
    While p<=m do
     Begin
      p:=p*5;
      inc(k);
     End;
    writeln('Наименьшее k: ',k);
    writeln('5^0 = 1');
    For i:=1 to 12 do
     Begin
      p:=p*5;
      writeln('5^',i,' = ',p:0:0);
     End;
End.

@Andryshee 0 / 0 / 0 Регистрация: 16.09.2012 Сообщений: 10
		1
	Вывести на экран таблицу степеней числа 5 (от нулевой до 12-й) 01.10.2012, 12:08. Показов 2693. Ответов 1 Метки нет (Все метки) Пользователь вводит целое положительное число m. Найти наименьшее натуральное число k, при котором 5(в степ)k > m. Вывести на экран таблицу степеней числа 5 (от нулевой до 12-й). 0

	01.10.2012, 14:26

Опции темы

Вывести на экран таблицу степеней числа 5 (от нулевой до 12-й)

Решение