65(8)=53(10)< 53(7)=38(10)
Ответ:
10234 * 157 = 1606738
1606738/8=200842 (остаток 2
)
200842/8=25105 (остаток 2
)
25105/8=3138 (остаток 1
)
3138/8=392 (остаток 2
)
392/8=49 (остаток 0
)
49/8=6 (остаток 1
)
6/8=0 (остаток 6)
1606738 (10) = 6102122 (8)
1) 8
2) 7 выведет 1
3)
11 строка, поменять на k := k + 1;
14 строка заменить на if n = 1 then
Рабочий код
var
n, k: integer;
begin
read(n);
k := 0;
while n mod 7 = 0 do
begin
k := k + 1;
n := n div 7;
end;
if n = 1 then
writeln(k)
else
writeln('He существует')
end.
Правильное решение данной задачи
const
divider = 7;
var
n: integer;
k: real;
begin
read(n);
k := ln(n) / ln(divider);
if round(k) = k then
writeln(round(k))
else
writeln('He существует');
end.
Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.