меняем строку for var... на
for var n:=k to 1 do
будет выводить значение от большего до двух
var k,a: integer;
begin
write('количество k=');read(k);
for var n:=k downto 1 do
begin
a:=2*n;write(a, ' ');
end;
end.
Вот, посчитал, задание не очень сложное, нужно просто понять где на что умножать/делить.
Ответ с пробелами
352 бита
Ответ без пробелов
320 бита
Объяснение:
16 бит 1ин знак Значит надо умножить 16 на количество букв( в данном случае).
1)16*22=352
2)16*20=320