Что должно входить в твой проект ???
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.
Program gg;var a,b,c:real;
begin a:=(1+1/4)/(1+1/2); b:=(6.8*0.04*1.65)/(3.3*5.1*0.16); c:=((3+1/2+1+4/5)*3/5-1.18)/((8+1/8)*(2/13)+(1+1/3)/(1+7/9));end.
397(10)=Х(2)
397=198*2+1
198=99*2+0
99=49*2+1
49=24*2+1
24=12*2+0
12=6*2+0
6=3*2+0
3=1*2+1
1=0*2+1
записываешь единицы и нули сверху вниз. 110001101 - это и есть 397 в двоичной
<u>Задание 1</u><em>(Это чо за тупая тварь придумала, что после деления натуральных чисел может быть остаток? передай всем что они там мудаки)</em>
program day;
var c,a,b:real;
Begin
Readln(a,b);
if a>b
then begin c:=a/b;
writeln('результат ',c:0:0);
end
else writeln('a не должно быть больше b');
<span>end.</span>