Var S,E:real;
N:integer;
Begin
Write('E = ');ReadLn(E);
N:=2;
S:=0;
While (N-1)/(N*N)>E do
Begin
S:=S+(N-1)/(N*N);
N:=N+1
End;
WriteLn(S)
End.
1.
Program zavdannia;
var x,y: real;
begin
read(x);
y:=(x+4)/(x-2);
write(y);
end.
2.
Program zavd2;
var x,y: real;
begin
y :=sqrt((x*x-4*x-4)/(x-8);
write(y);
end.
То же самое, что и в предыдущих блоках было, выполнить 1 раз в отношении переменной D.
Алгоритм:
1) Максимальное =A
2) Если B>максимального, то максимальное=B
3) Если C>максимального, то максимальное=C
4) Если D>максимального, то максимальное=D
Program morebrains;
const
n = 12; {Количество элементов массива}
var
F:array[1..n] of integer;
s:string;
i,sum:integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив}
writeln;
for i:=1 to n do F[i]:=i*i-5*i-14;
{Ищем сумму положительных}
sum:=0;
for i:=1 to n do
if F[i]>0 then sum:=sum+F[i];
{Выводим сумму}
writeln;
writeln('Сумма положительных элементов равна ',sum);
end.
while условие выполнения цикла do
begin
{Операторы}
end;