Есть разные целые типы, но тебе подходит ShortInt: от -128 до 127
Чтобы перевести из восьмеричной в десятичную надо число(у нас 11) представить в виде суммы произведений степеней основания, а конкретнее
Складываем:
Теперь из десятичной переводим в двоичную:
Вначале 20/2=10(остаток 0), 10/2=5(остаток 0), 5/2=2(остаток 1),2/2=1(остаток 1)
И чтобы получить двоичную запись просто пишем остатки в обратом порядке:
первая
var
a : longint := 2;
begin
write('первые 16 степеней числа ', 2,' : ');
for var i := 1 to 16 do begin
a *= 2;
write(a, ' ');
end;
end.
втрая
var
a, p, o, n : integer;
begin
write('введите 10 чисел : ');
for var i := 1 to 10 do begin
read(a);
if a < 0 then o += 1 else if a > 0 then p += 1 else n += 1;
end;
writeln('положительных = ', p);
writeln('отрицательных = ', o);
writeln('нулю = ', n);
end.
третья
var
n, s : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do s += i;
writeln('сумма чисел s=', s);
end.
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.
Ответ:
А1-а7
Объяснение:
Именно в этих ячейках есть текст, а не формула или число