1) Дано целое положительное число N, не превосходящее 1000. Необходимо найти,

1) Дано целое положительное число N, не превосходящее 1000. Необходимо найти, является ли это число ступенью числа 7. То есть нужно найти, существует ли такое целое число К, что 7K =N, и вывести это число или извещенье, что такового числа не существует. Для решения этой задачки ученик написал программу, но, к раскаянью, его программка оказалась неверной.
var n, k: integer;
begin
read(n);
k := 0;
while n mod 7 = 0 do begin
k := k + n div 7;
n := n div 7;
end;
if n lt;= 7 then
writeln(k)
else
writeln('He существует')
end.
Поочередно сделайте следующее.
1. Напишите, что выведет эта программка при вводе числа 49.
2. Приведите пример числа, при вводе которого приведённая программа напечатает то, что нужно.
3. Найдите в программе все оплошности (их может быть одна либо несколько). Для каждой оплошности выпишите строчку, в которой она допущена, и приведите эту же строчку в исправленном виде.

Даниил Бышовец 2019-09-05 08:08:00

Степень числа 7 - это нечто иное, ежели 7*N, как написано у Вас в задании. Вы поначалу с этой ошибкой разберитесь, а позже уже можно будет побеседовать о оплошностях в программке.

Ванька Чендаков 2019-09-05 08:10:57

здесь не нужен цикл, тут все решается логарифмом