var m,s,b,a:integer;
begin
writeln ('Введите степень:');
read (m);
b:=3;
s:=1;
for a:=1 to m do begin
s:=s*b;
end;
writeln('3 в степени ',m,': ',s);
end.
1. Щелкаем по надписи правой кнопкой мыши
2. Выбираем пункт "Формат надписи..."
3. Вкладка "Цвета и линии"
4. Выбираем цвет линии "Нет цвета"
Вал, лофа, фол, вода жало а больше не знаю
156/2=78 (0)
78/2=39 (0)
39/2=19 (1)
19/2=9 (1)
9/2=4 (1)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
Остатки от деления записываем в обратном порядке.Получаем: 10011100
156=10011100 (2)
Ответ: 4.
Развёрнутый ответ (решение) на всякий случай :)
<span>var a: array[1..3,1..4] of integer;</span>
<span> i,j,s: integer;
</span><span>begin
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> write('строка ',i,': ');
</span><span> for j:=1 to 4 do read(a[i,j]);
</span><span> end;
</span><span>// вывод массива на экран
</span><span> writeln('массив а по строкам:');
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> for j:=1 to 4 do write(a[i,j]:4);
</span><span> writeln;
</span><span> end;
</span><span>// суммы элементов по строкам
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> s:=0;
</span><span> for j:=1 to 4 do s:=s+a[i,j];
</span><span> writeln('сумма элементов строки ',i,': ',s);
</span><span> end;
</span><span>end.
ввод - вывод
</span>строка 1: 10 11 12 13
<span>строка 2: 14 15 16 17
</span><span>строка 3: 18 19 20 21
</span><span>массив а по строкам:
</span><span> 10 11 12 13
</span><span> 14 15 16 17
</span><span> 18 19 20 21
</span><span>сумма элементов строки 1: 46
</span><span>сумма элементов строки 2: 62
</span><span>сумма элементов строки 3: 78
</span>