Написать программу, в результате выполнения которой слово “qbasic” пробежит по экрану слева направо и справа налево.

Cls (color 10) - для красоты (a: ) - слово будет двигаться бесконечно for i = 1 to 75 cls locate 12, i print "qbasic" for k = 1 to 20000 next k next i for i = 75 to 1 step -1 cls locate 12, i print "qbasic" for k = 1 to 20000 next k next i (goto a) - слово будет двигаться бесконечно (чем больше выделенное число, тем медленнее двигается слово, на разных пк по-разному)

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

такой алгоритм является линейным, или последовательным. то есть в нём отсутствует   процесс передачи информации о состоянии объекта к объекту.

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.