7*55*70=26950 символов всего.
Если один символ 1 бит,то
56Кбит\с=57344Бит\с
26950/57344=0,5 сек
бит, байты, килобайт, мегабайт, гигабайт. Ответ :г
const
N = 50;
var
a:array[1..N] of integer;
b:array[1..N] of real;
i:integer;
begin
randomize;
for i := 1 to N do
begin
a[i]:=100-random(201);
b[i]:=sqr(a[i])/(i+a[i]);
writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3);
end;
end.
На примере DelphiVarX:integer; Button_Click() BeginS:=0;x:=StrtoInt(Text1.text);x:=x mod 10; Label1.caption(InttoStr(x)); End; Результат: 5
Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.