Задача 1 Определить кол-во цифр в числе .Задача 2 Напечатать те натуральные числа квадрат которых не превышает n .Задача 3 Найти первое натуральное число куб которого больше n .
Задача 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.
Не нашли ответ?
Похожие вопросы