Pascal abc while 7 дано целое число n (> 1 найти наименьшее целое положительное число k, квадрат которого превосходит n: k^2 меньше или равно n. функцию извлечения квадратного корня не использовать.

Var n, k, c : integer; begin readln (n) ; k: =0; while c

Var     i,j,n: integer;     s,a,t: string; begin write('введи текст: '); readln(s);   n: =length(s);   i: =n mod 7;   if i> 0 then     begin     i: =7-i;     s: =s+copy('корвет',1,i);     n: =n+i;     end; for i: =1 to n do    begin       a: =a+s[i];     if i mod 7=0 then       begin       for j: = 7 downto 1 do         t: =t+a[j];       a: ='';       end     end; writeln(t) end.можно использовать специальную функция переворота строки. будет чуть корочеvar    i,j,n: integer;     s,a,t: string; begin write('введи текст: '); readln(s);   n: =length(s);   i: =n mod 7;   if i> 0 then    begin    i: =7-i;     s: =s+copy('корвет',1,i);     n: =n+i;     end; for i: =1 to n do    begin     a: =a+s[i];     if i mod 7=0 then       begin         t: =t+reversestring(a);       a: ='';       end     end; writeln(t)end.sub z()s = inputbox("введи текст")n = len(s)i = n mod 7if i > 0 then    i = 7 - i    s = s & mid("корвет", 1, i)    n = n + i    end iffor i = 1 to n    a = a + mid(s, i, 1)    if i mod 7 = 0 then          t = t + strreverse(a)          a = ""          end ifnext imsgbox (t)end sub

Значащие нули в позиционных сс - это те нули (ну аналогично и  единицы, которые стоят до последней цифры с конца числа (то есть первой). суть в том, что после этой самой цифры может быть ещё сколько угодно нулей, но они уже не значащие  здесь один значащий нуль, третий с конца алгоритм перевода из десятичной сс в двоичную найдёте на картинке ниже: ) в данном случае (1000001) здесь пять значащих нулей, а остальные, которых бесконечность и которые обычно не записывают, не в счёт ============================ , 4 значащих нуля