Подсчитайте количество целых двоичных чисел в диапазоне с 1101 по 011​
я в отчаянии

var i: integer;

s: string;

begin

  s: ="abcdefghijklmnopqrstuvwxyz";

  for i: = 1 to length(s) do

      writeln(s[i],' = ', ord(s[i]));

end.

- лондонгермания - берлиниспания - мадридиталия - римпольша - варшаваукраина - киевфранция - париж

да както сама удивилась как мало я знаю(

одна из возможных форм курсора : прямая

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.