Sqr(5) sqr(stgx) sqr (y-1)
sqr возведение в квадрат в паскале
Pascal:
var x,y:integer;
begin
readln (x,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) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
Может быть вот так, мы писали что-то похожее в классе, только по другому сформулировано
program Chisla;
<span> </span><span>var a,n:integer; </span>
<span>begin </span>
writeln('a= ',a);
<span>readln(a); </span>
<span>if (a div 100 <9) and (a div 100 >=1) then inc(n); </span>
<span>writeln('n= ',n); </span>
<span> </span><span>end.
</span>Прошу прощения, если не то...
Var d : Real;
Begin
Readln(d);
Writeln('Длина ограждения: ',d+3.14159265*(d/2));
Writeln('Площадь: ',3.14159265*sqr(d/2)/2);
end.
Б В А Г
По поводу операций В и А нельзя однозначно сказать какое из них сильнее пофильтрует