Вероятнее всего это то что тебе нужно. Я так понял это схема транзисторов, да?
Const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
Это текстовой файл. Программа Writer из Open/Libre office.
n = float(input('С какой скоростью шли богатыри? '))
r = float(input('Какое расстояние им предстоит преодолеть? '))
print('Время в пути (в минутах): ' + str(r/n))
Один раз отмерь, один раз отрежь!
33 символа
1 символ кодируется 16 битами
33*16=528 бит=66 байт
*В формуле это выглядит так
i=16 бит
K=33
-------
I-?
I=Ki=33*16=528 бит=66 байт