===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
Var A:byte;
Begin
For A:= 1 to 15 do
WriteLn(A,' * 2 = ',A*2);
End.
//прога на Pascal`е
var
a, b, i: integer;
begin
a:=17;
b:=-25;
while (a*b)<0 do
begin
inc (i);
writeln (i, ') a = ', a, '; b = ', b, '; a*b = ', a*b);
inc (a, -3);
inc (b, 5);
end;
end.
Годовая ставkа-0,07
выплата 41000
общая сумма 370000
kол-во лет выплат 6,1
Количество точек:
256*2*128*2= 2^(17)
2Мб (Мбит или Мбайт ???????)
объём памяти: 2 Мбайта=2*2^23 = 2^(24) бит ?
2 Мбита=2*2^20 бит = 2^21 бит ?
глубина цвета: объём памяти/кол точек =
= 2^24 / 2^17 =2^7=128 бит ?? если Мб - Мбайт
или 2^21/2^17 = 2^4 =16 бит ?? если Мб -Мбит
2)
F =5,1Мбайт = 5,1*2^20 бит =5 347 737,6 байт
t=2*60 =120c
разрядность =5347737,6 / (22050*120)= 16 бит