Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
djgas10
22.06.2022 07:32 •
Информатика
Напишите программу для вывода квадратов и кубов чисел от 1 до 8
Показать ответ
Ответ:
kidsers2017Milllooo
12.06.2020 14:29
var i:integer;
begin
for i:=1 to 8 do
writeln(i,' ->в квадрате ',i*i,' ->в кубе ',i*i*i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
xDanielDash
25.01.2023 14:23
При записи некоторых условных операторов были допущены ошибки. Установите соответствие между оператором и допущенной в нём ошибкой, укажите верный оператор. неправильная...
Riyaa
07.02.2020 06:11
Сколько значащих нулей в двоичной записи числа 8^4024 – 4^1605 + 2^1024 – 126?...
DontRobot
17.06.2022 18:38
Вс++ ввести с клавиатуры три числа. вывести на экран числа по модулю больше среднего арифметического этих чисел....
nyragka
17.06.2022 18:38
Напишите программу, которая возводит введённое число в степень 10, используя только операции сложения и умножения. что произойдёт, если ввести большое число 78?...
DIANA061106
04.11.2020 06:40
Как вывести индекс массива в данной ? program gdiagle ; uses crt; var i,j,max: integer; a: array[1..5,1..10] of integer; s: array[1..10] of integer; begin for i: =1 to 5...
АндрейЯсийчук
30.03.2023 09:06
Примеры информациий сортированной а) по алфавиту б) в порядке убывания в) в хропологической последовательности...
БеЗуМнаЯолИвьЕшКа
11.01.2022 11:42
Сотавьте программу . вычислить площадь и периметр при заданных длинах...
Rashidleo
08.03.2021 05:12
Сканер, клавиатура, монитор , микрофон. что...
pmangaskin
08.03.2021 05:12
Што такое кпк и как етим пользовитса?...
ingab2989
08.03.2021 05:12
Дано : v=512 000 ,бит/с t= 60 сек найти : i в кбайтах дано: t=10мин v 32 кбит/сек найти : i в кбайтах заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
for i:=1 to 8 do
writeln(i,' ->в квадрате ',i*i,' ->в кубе ',i*i*i);
end.