Задача 43894 var x,L,M:integer; begin readln(x);...

var x,L,M:integer;
begin
readln(x);
L:=1;
M:=0;
while x>0 do begin
M:=M+1
if (x mod 7)
mod <> 0
then
L:"=L · (x mod 7);
x:=x div 7
end;
writeln (L);
writeln (M)
end.

На нашем сайте такое бывает редко, но решение к данной задаче еще никто не написал.

Что Вы можете сделать?

1. Выставите данный вопрос вновь. Перейдите на главную страницу.
2. Найдите похожую задачу. Используйте поиск.