Задача 1 Определить кол-во цифр в числе .
Задача 2 Напечатать те натуральные числа квадрат которых не превышает n .
Задача 3 Найти первое натуральное число куб которого больше n .
Задача 2 Напечатать те натуральные числа квадрат которых не превышает n .
Задача 3 Найти первое натуральное число куб которого больше n .
More Questions From This User See All
Answers & Comments
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.