5+3*2=10 инфоинфоинфоинфо
Var
a,b,i:integer;
Begin
Write('Введите А и В ');
Read(a,b);
for i:= a to b do
writeln(a+(i-a),'^2 = ',sqr(i));
End.
Паскаль ABC:
Const
N = 7;
Var
A:array[0..N] of real;
i:integer;
Begin
WriteLn('N = ',7);
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
ABC.net:
Var
A:array of real;
N,i:integer;
Begin
Write('N = ');ReadLn(N);
A:=new real[N];
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.<span>
</span>
Закачка файла винтика заняла 20 минут если бы не шпунтик со свойм файликом. Четыре минуты он качал с нормальной скоростью, а потом с половинной
Файл: 4+16*2=36 мин
Размер (Объём) файла шпунтика 20% больше
Он качал бы 20 мин.Начал качать после винтика, скорость уменьшается вдвое
48 мин. Но через 32 минут, винтик закончил скачивание и скорость умножилась на 2
48-32=16 еще 8 минут
<span>Разница в "4 МИНУТАХ"</span>