Question

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

Answer 1

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.