Var
a : char;
b : integer;
begin
readln(a);
b := ord(a);
writeln(chr(b+1), chr(b+2))
end.
{конструкция else для того если будут введены отрицательные x y}
var
x,y:real;begin
readln(x,y);
if (x*x*x*x*x+y)>0 then
writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x)))
else
writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x)));
<span>end.</span>
N - любое число
Движение:
1. Идти n шагов
2. Повернуться на n градусов вправо
3. Повернуться на n градусов влево
4. Повернуть в направление n
5. Повернуться к <какому-либо объекту>
6. Изменить х на n
7. Изменить y на n
8. Установить x на n
9. Установить y на n
10. Идти в x: n y: n
11. Плыть n секунд в точку x: n y: n
12. Идти в <какой-либо объект>
13. Если край, оттолкнуться
Внешность:
14. Сказать "<что-либо>"
15. Думать "<что-либо>"
16. Говорить "<что-либо>" в течение n секунд
17. Думать "<что-либо>" в течение n секунд
18. Показаться
19. Спрятаться
Перо:
20. Опустить перо
21. Поднять перо
22. Установить цвет пера
p.s. выбрал только некоторые, самые подходящие
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(-3,3);
write(ar[i]:4);
end;
for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят}
for j:=i+1 to n do
if ar[i]>ar[j] then
begin
k:=ar[i];
ar[i]:=ar[j];
ar[j]:=k;
end;
writeln;
writeln('Sorted array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
for i:=1 to n do
if ar[i]=0 then
begin
write('Index of 0 is ',i);
break;
end;
end.
<span>Пример работы программы:
First array:
-2 -3 0 -3 3
Sorted array:
-3 -3 -2 0 3
Index of 0 is 4</span>