Program zad1;
Var
x,B1,B2,B3,B4,B5,y:real;
begin
writeln('Введите X');
readln(x);
B1:=x+1;
B2:= 1/B1;
B3:= B2-1;
B4:= B2+1;
B5:= B3/B4;
y:= B5-1;
writeln('Ответ: ',y:6:2);
end.
а с начало круг потом отметка в нем дальше вытянуть и повернуть
Var x,y:integer;
begin
writeln('введите x');
readln(x);
writeln('введите y');
readln(y);
if (x>0) and (y>0) then writeln ('точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('точка лежит во второй четверти');
if (x>0) and (y<0) then writeln ('точка лежит в четвёртой четверти');
if (x<0) and (y<0) then writeln ('точка лежит в третьей четверти');
if (x=0) or (y=0) then writeln ('такой точки нет');
<span> end.</span>
Var
s: string;
rus, eng, cif: set of char;
i, r, e, c: integer;
begin
rus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];
eng := ['A'..'Z', 'a'..'z'];
cif := ['0'..'9'];
write('Введите текст: ');
readln(s);
for i := 1 to length(s) do
begin
if s[i] in rus then inc(r);
if s[i] in eng then inc(e);
if s[i] in cif then inc(c)
end;
writeln('Русских букв: ', r);
writeln('Английских букв: ', e);
writeln('Цифр: ', c)
end.