Комплексное использование возможностей MS Excel для создания документов

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

буфер обмена,перетаскивание,сохранение в файл

койка, стройка, трест, рой, репа, тройка, река, серп,строка.

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;