Задача 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.