//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of real;
i,k:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(3);
write(ar[i]:6);
end;
for i:=1 to n-1 do
if ar[i]=ar[i+1] then k:=k+1;
writeln;
writeln('Res=',k);
end.
Чтоо?Я ничего не понял,перевиди вопрос
использовать Робот
алг
нач
нц пока сверху свободно; вверх кц
нц пока сверху стена; влево кц
вправо
нц пока сверху стена
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока сверху свободно
вверх
кц
вправо
кц
кон
Сначала переведем В в восьмеричную систему.
2034 (5) = 415 (8)
415 (8) + 327 (8) = 744 (8)
Переведу результат в двоичную систему.
744 (8) = 111100100 (2).
<span>Вариант в Excel.
Внизу ярлыки листов с задачами. В строке формул проверяем функции. Лист защищен
без пароля, чтобы не повредить формулы. </span>