Нужно решить на qbasik найти сумму а=2,6, до тех пор пока она не превысит 500

cls

n = 500

k = 4

x = 2

s = 0

do while s < n

s = s + x

print x, s

x = x + k

loop

n = 64 - 32 = 32

i = log₂ 32 = 5 бит

количество вопросов, которые нужно задать равно 5

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.