Var
i:integer;
y,x:real;
begin
writeln('Введите аргумент X');
readln(x);
if (x>=0) and (x<=2) then
begin
y:=ln(30)+exp(2*x);
writeln('1 случай:');
end
else
if (x<0) then
begin
y:=cos(x-5);
writeln('2 случай:');
end
else
begin
y:=2*pi*x;
writeln('3 случай:');
end;
writeln('Значение функции Y = ',y);
end.
Петя, g+z, и скорее всего if т.к. это оператор
Program u;
var s,d:string;
begin;
read(s); s:=lowercase(s);
if reversestring(s)=s then write('Перевёртыш') else write('Не перевёртыш');
end.
Абвгдеёжзийклмнопрстуфхцчшщъыьэюя
1 шаг - 20101416226112 шаг - 11622614101023 шаг - йефемииб
Чаще всего встречаются буквы "е" и "и"
Номер буквы "е" - 6