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.
Думаю,что ответ 2))))))))))))))))))))))))))))))))))))))))
8 цветов кодируются 2^n=8, n=3 битам
Объем видеопамяти
640 * 350 * 3 = 672 000 бита
<span>512 цветная палитра требует
2^n=512, n=9 бита
672 000 / 9 = 74666,67 бита на изображение
Изображение может быть например</span><span>
600</span> * 124 точек
часть памяти останется свободной
74666 - 600 * 124 = 266 бита
В 1 бите можно закодировать 2 символа, в двух - 4, в трех - 8 и так далее.
Ищем наименьшую степень двойки, которая окажется >= количеству символов, которые надо закодировать. Показатель этой степени и будет являться ответом. В данном случает это 64, а 64 - это 2 в степени 6.
Ответ: 6 бит.
Var ar:array of integer;
z,i,n,o:integer;
begin;
o:=0;
readln(n);
readln(z);
setlength(ar,n+1);
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]>z then
begin;
inc(o);
ar[i]:=z;
end;
end;
writeln('Array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
writeln('Количество замен=',o);
end.