1024000/1024/8=125 килобайт в секунду.
2500/125=20 секунд
216 в
217 е
218 а
219 в
220 а
221а 222 с 224 е 225 а 226 а 229 D 231 а 232 а 233 с 234 е
в облочке DOC не заню
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.
1.
Const
N = 30;
Var
A:array[1..N] of integer;
i,Max,kMax:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(N);
Write(' ',A[i]);
End;
WriteLn;
{Нахождение максимума}
Max:=A[1];
For i:= 2 to N do
if A[i]>Max then Max:=A[i];
WriteLn('Max = ',Max);
{Подсчёт максимумов}
kMax:=0;
For i:= 1 to N do
if A[i] = Max then kMax:=kMax+1;
WriteLn('kMax = ',kMax);
End.
Пример:
Исходный массив: 11 13 9 8 19 9 22 29 0 23 6 26 14 21 24 24 26 26 23 13 12 20 1 21 0 27 25 28 13 0
Max = 29
kMax = 1
2.
Const
N = 30;
Var
A:Array[1..N] of integer;
i,SMax,iSMax:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(N);
Write(' ',A[i])
End;
WriteLn;
iSMax:=1;
SMax:=A[1]+A[2]+A[3];
For i:= 3 to N-2 do
if A[i]+A[i+1]+A[i+2]>SMax then
Begin
iSMax:=i;
SMax:=A[i]+A[i+1]+A[i+2];
End;
WriteLn('Номера элементов, сумма которых максимальна: ',iSMax,', ',iSMax+1,', ',iSMax+2);
WriteLn('Максимальная сумма = A[',iSMax,'] + A[',iSMax+1,'] + A[',iSMax+2,'] = ',SMax)
End.
Пример:
Исходный массив: 15 13 25 8 4 4 8 20 26 25 25 7 27 16 28 18 26 24 17 20 7 15 10 12 18 13 22 19 4 25
Номера элементов, сумма которых максимальна: 9, 10, 11
Максимальная сумма = A[9] + A[10] + A[11] = 76