Var r,s:real;begin writeln('r=?, r>20 '); readln(r); s:=3.14159265359*(r*r-400.0); writeln('s=', s);end.
--------------
Но проверку r>20 не делал, просто попросил словами.
Var
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]<min) then min:=Z[i];
End;
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
Var a, b, x : real;
Begin
Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);
X := -b + b * b - 4 * a * b / 2 * a;
Write('x = ', x : 0 : 2);
Readln;
End.
Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.