Объяснение:
Ошибочка - площадь квадрата через диагональ равна:
S = d²/2
Дано:
d = В2 = 4
S = В3 =В2*В2/2
a = В4 =КОРЕНЬ(В3)
Возведение в степень можно
S= B5 =СТЕПЕНЬ(В3;2)/2 - это квадрат (и разделен на 2).
а = В6 = СТЕПЕНЬ(В5;0,5) - это корень
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
Const
N = 30;
Var
A,B:array[1..N] of integer;
i,S,M:integer;
Begin
Randomize;
Write('A(',N,'):');
M:=0;
For i:= 1 to N do
Begin
A[i]:=random(11)-5;
Write(' ',A[i]);
if A[i] > 0 then
Begin
M:=M+1;
B[M]:=A[i];
End
End;
WriteLn;
Write('B(',M,'):');
For i:= 1 to M do
Write(' ',B[i]);
ReadLn;
End.