===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
Var
i:integer;
c:array [1..15] of integer;
a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
c[i]:=Random (100);
end;
for i:=1 to 15 do begin
if (c[i] mod 2 = 0) then
a[i]:= c[i] div 2
else
a [i]:= c [i] *2;
end;
write ('Массив С: ');
for i:=1 to 15 do begin
write (c [i]);
write (' ');
end;
writeln (' ');
write ('Массив A: ');
for i:=1 to 15 do begin
write (a[i]);
write (' ');
end;
end.
<span>128000*120=</span>15360000 бит передано
15360000 /8 (переводим в байты) / 1024 (в кбайты) = 1875 кбайт
Для записи 16- цифры необходимо 4 двоичных разряда = 4 бит
101 - имеет 3 цифры
4 * 3 = 12 бит
кол инф = 12 бит
ОТВЕТ:
Var a, d, n, i, otv: integer;
begin
read(a,d,n); <em>- ввод всех значений</em>
otv:=a; <em> - в переменную где будет храниться </em>
for i:=1 to n do <em>ответ записываем начальный взнос</em>
begin
a:=a+d; <em>- увеличиваем в цикле взнос</em>
otv:= otv + (a); <em> - добовляем взнос к нашему ответу</em>
end;
writeln(otv); <em> - выводим ответ</em>
end.