//Pascal ABC.NET v3.1 сборка 1172
//3
Var
d:real;
begin
readln(d);
writeln(3.14*d);
end.
//4
Var
a:real;
begin
readln(a);
writeln('V=',a*a*a);
writeln('S=',6*sqr(a));
end.
//5
Var
a:real;
begin
readln(a);
writeln(a/100,' м');
writeln(a/100000,' км');
end.
Ответ Б, так как информация это принцип передачи данных а не азбука морзе
var mas:array[0..9] of integer;
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.
Const
n=5;
var
m:array[1..n] of byte;
function Itog():real;
var
i,max,min,s:byte;
begin
s:=m[1]; max:=s; min:=s;
for i:=2 to n do begin
s:=s+m[i];
if max<m[i] then max:=m[i]
else
if min>m[i] then min:=m[i]
end;
s:=s-max-min;
Itog:=s/(n-2)
end;
var
i:byte;
begin
Writeln('Введите экспертные оценки');
for i:=1 to n do Read(m[i]);
Writeln('Итоговый балл равен ',Itog:4:2)
end.
<em><u>Тестовое решение:</u></em>
Введите экспертные оценки
4 4 5 3 5
Итоговый балл равен 4.33