1определить кол-во цифр в числе . 2 напечатать те натуральные числа квадрат которых не превышает n . 3 найти первое натуральное число куб которого больше n .

Var   a, c : integer; begin   read (a);   c : = 0;   while a > 0 do   begin     c : = c + 1;     a : = a div 10;   end;   write (c); end. var   i, n : integer; begin   read (n);   for i : = 1 to trunc (sqrt(n)) do     write (i, ' '); end. var   n, i : integer; begin   i : = 1;   while i*i*i < = n do     i : = i + 1;   writeln (i); end.

Program v1; var    i,n: integer;     mas: array[1..100] of real;     mas1: array[1..100] of real;     begin   write ('сколько элементов вы хотите: ');     readln(n);     for i : = 1 to n do  begin  mas[i] : = random(30);     write (mas[i],' ');     end;     writeln;         for i : = 1 to n do   if (i mod 2 = 1) then    begin    mas1[i] : = mas[i]/2;     write (mas1[i],' ');     end;     end.

Uses crt; type tdmassiv = record intmassiv : array of integer // создали тип "динамический массив" end; var n, i, k : integer; a : tdmassiv // создали переменную a нового типа tdmassiv begin clrscr; randomize; write('vvedite kol-vo chisel'); readln(n); setlength(a, n) // определяем, что массив а будет размера n элементов. for i=1 to n do begin a[i] : = random(10001); // заполняем массив случайными числами [0..10000] end; k : = 0; // k - это счетчик трехзначных чисел for i=1 to n do begin if (a[i] > = 100) and (a[i] < = 999) then k : = k+1; // считаем трехзначные числа end; if k : = 0 then writeln ('het') else writeln('trehznachnyh chisel = ', k); // выводим посчитанное количество чисел на экран end.