Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>
<span>Пиксель, наверное, разве что слово "логический" смущает</span>
Сбоку должен быть переключатель вкл выкл
=ЕСЛИ(ИЛИ(B28=B27;B28=B26);МАКС(B22^3;B23;B24^3;B25^(1/2))^3;ЕСЛИ(B28<B26;(LOG(B28^2)^3)+(LN(B26+B27))^2;EXP(B22+B23+B28)))
Если во второй формуле десятичный логарифм, то так:
=ЕСЛИ(ИЛИ(B28=B27;B28=B26);МАКС(B22^3;B23;B24^3;B25^(1/2))^3;ЕСЛИ(B28<B26;LOG10(B28^2)^3+LN(B26+B27)^2;EXP(B22+B23+B28)))
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
for var i:=0 to a.IndexMin-1 do a[i]:=0; a.Println;
end.
<u>Пример</u>
n= 13
-10 44 17 13 50 49 -7 -46 -36 14 35 42 26
0 0 0 0 0 0 0 -46 -36 14 35 42 26