78=>16
214=>326
89=>131
111=>157
Var
n, a, b, i, j: integer;
ar: array[1..10000]of integer;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.
<span>Цикл с предусловием </span>
<span><span>Цикл с постусловием</span></span>
<span><span><span>Цикл со счётчиком</span></span></span>
80 Кбайт = 80 *2^(13) =5*2^4 *2^13=5*2^(17) бит
40*32*64= 5*2^3 * 2^5 * 2^6 = 5*2^(14) символов
5*2^(17) / (5*2^14)= 2^3 = 8 бит для одного символа
Pascal:
program zada4a;
var
a,b,c:integer;
begin
write('Введите число кратному 2') readln(a);
write('Введите число кратному 2') readln(b);
c=a/b;
end.