Cls
input x
if x<0 then
z=log(-x)
end if
if x>=0 then
z=sqr(x+1)
end if
print z
перекодирование<span> — Повторное кодирование в другом коде.</span>
Слово "слон" если лишнее надо убрать
Общее понятие Единичное понятие
композитор Чайковский
художник Репин
поэт Пушкин
озеро Байкал
горы Карпаты
город Париж
философ Сократ
полководец Суворов
учёный Ньютон
река Лена
город Чита
Program zadacha;
vara: array[1..10] of integer;i,min,n: integer;
beginn:=0;for i:=1 to 10 do begina[i]:=-5+random(5);write(a[i]:4);min:=a[1];end;
for i:=2 to 10 do beginif min>a[i] then min:=a[i];end;
for i:=1 to 10 do beginif a[i]=min then beginn:=n+1;end;end;
writeln();writeln('min=',min);writeln('n=',n);end.