Войти Регистрация Спроси ai-bota

Дано число n вывести на экран все числа,кубы которых не превышает n pascal

Ответ:

Dariu111

03.10.2020 00:15

Var
i,n:integer;
begin
readln(n);
for i:=1 to n do
if i*i*i<=n then
writeln(i);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

rezkova

18.01.2021 05:38

Переведём число 103 в восьмеричную систему счисления...

Pomogu0pogalycta

12.10.2020 12:41

Задание7. Установите взаимно-однозначное соответствие между устройствами и их назначением...

vasilzuk

02.01.2023 16:00

Решите информатика 10 класс ...

Аринусик111

12.06.2021 16:06

Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь — 1 и т. д.). Определить возраст человека (число полных лет). В случае совпадения...

Vymnuk228

21.10.2020 03:50

Определите минимальное время, за которое будет передан файл размером 6 Мб по витой паре в локальной сети...

nurik01viper

19.07.2022 17:01

Как измеряется информация?...

CasDavis

04.01.2022 15:15

ответе на вопросы с информатики буду очень благодарна. Какова цель электронной почты? Почему она называется так? ...

Marmaladee

29.08.2021 01:20

-Что?-папка -какой?- -что делать?-...

korzina284

03.04.2021 06:55

Достоверность,релевантность,актуальность,понятность,полнота что это такое?...

АрТёМкА945

21.03.2020 17:36

Напишіть текст ділового листа до фірми нада) ...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку