Вкажіть можливе значення до величини Real

Назва"

True

3,5

56​

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

1. oc ( операционная система ) позволяет всем что происходит в компьютере.

2. windows , linux ( возможно ошибка в написании ) , mac os

3.относятся также диалоговые оболочки и сервисные программы.

сервисные программы – это программы обслуживания дисков (копирование, форматирование, «лечение» ),  сжатия файлов на дисках (архиваторы), борьбы с компьютерными вирусами и т.д. 

4. java,  turbo basic,  quick basic

5.системы программирования предназначены для программистов .

вроде бы 100*100=10000 бит=1250 байта