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

vk509681459

2020-02-02 15:06:36

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. Найдите похожую задачу. Используйте поиск.