Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
olykharkov
28.11.2020 06:51 •
Информатика
Возвести в куб нечётные числа от 1 до 20 (в паскале)
Показать ответ
Ответ:
Dimalchik
08.10.2020 07:45
Var a:array[0..19] of integer;
i:integer;
begin
For i:=0 to 19 do
begin
a[i] := i + 1;
write(a[i], ' ');
end;
writeln();
for i:=0 to 19 do
begin
if i mod 2 = 0 then a[i] := a[i]*a[i]*a[i];
write(a[i], ' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Genius2020
05.07.2020 02:45
50 ! запишите команды для примера 18,7(ст. 123, пример во вложении! ) при условии, что чертёжник начинает перемещение от точки (3,1) и смещается в точку (1,2)....
anastasiagrebep08n1o
08.11.2021 09:25
Тест по теме команда ветвления вопрос 1. какие ключевые слова не используются для записи команды ветвления? else if and then вопрос 2. как выглядит полная форма команды ветвления?...
arinabolshakov1
20.05.2023 09:30
Чиє життя трагічніше остапа чи соломії? думку обгрунтуйте))...
ladhice
30.03.2020 16:21
1)Напишите программу для вычисления наименьшего из четырёх чисел для этого создана функция min4 в Python2)Напишите программу для вычисления степени K (целое)числа а (действительное).Для...
Ibrolya
25.08.2021 18:40
Дано выражение алгоритма решения некоторых за- дач графическим с блок-схемы (рис. 1 и 2). Под- готовьте и протестируйте работу этих блок-схем – 5 разных тестовых данных....
kamiramasirovEasyran
01.02.2023 10:16
ИНФОРМАТИКА РЕШИТЕ ЗАДАЧУ (5-6КЛАССЫ)С МАССИВОМ Вводится n целых элементов 10³,сами элементы =10¹⁸ вывести номера у которых нечётное кол во цифр и число является перевертышом....
Foxamel
07.05.2022 06:05
Вычислить значение f поодной из формулх, х 0f=4 - X, X 0...
juliati88tan
12.06.2022 21:54
ПО ТЕХНОЛОГИИ! 6 КЛАСС! С какой стороны от разметочной линии должно проходить полотно пилы при запиливании шипа?...
0Jocker0
26.12.2021 00:42
1. Выделите элементы сюжетной композиции. На сколько частей можноразбить текст повести? Как их можно озаглавить? Кратко перескажитесодержание каждой части. (Работа в группах.)2....
svetlanaivanova3
12.01.2020 22:05
Плюсы и минусы налога Эссе...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
begin
For i:=0 to 19 do
begin
a[i] := i + 1;
write(a[i], ' ');
end;
writeln();
for i:=0 to 19 do
begin
if i mod 2 = 0 then a[i] := a[i]*a[i]*a[i];
write(a[i], ' ');
end;
end.