uses WinCrt;
var
a, s: real;
begin
write('Введите сторону квадрата: ');
readln(a);
s:=a*a;
writeln('Площадь квадрата: ',s:5:2);
<span>end.</span>
Var
e, a, s: real;
i: integer;
begin
write('Введите точность Е ');
readln(e);
a := 0;
s := a;
i := 0;
repeat
i := i + 1;
a := 1 / sqr(sqr(i));
s := s + a;
until abs(a) < e;
writeln(s);
end.
Надеюсь вам можно использовать массивы, если нет, то скажите, переделаем
4√=2
64√=8
144√=12 но я другое не знаю сорри
Да, конечно.
Итак, вот, что нужно добавить в блок-схеме(нарисовать не получится)
Итак, Овал(пустой), стрелочка вниз, паралеллограмм( пишешь r, S, Pi=3.14), Стрелочка вниз, прямоугольник (внутри S=Pi*r*r), стрелка вниз, параллелограмм(S), стрелочка вниз, пустой овал.
Вот программа:
Program KRUG;
var:r, S: real;
const Pi=3.14;
begin
writeln('Введите радиус круга');
read(r);
S:=Pi*sqr(r);
writeln('S=', S);
end.