Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
wowanuch72
10.10.2021 20:33 •
Информатика
Напишите программу вывода последовательности чисел: 1 9 25 49 81 121 на паскале через while надо как-то)
Ответ:
gamer2222
09.10.2020 14:16
var x:integer;
begin
x := 1;
while x<13 do
begin
write(x*x,' ');
x := x + 2;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
гтто5
09.11.2022 04:50
6 Задание 1. Ознакомиться с теоретическим материалом. 2. Проверить свою теоретическую подготовку по контрольным во-просам. 3. Составьте программу для вычисления...
Малика25072002
26.04.2020 06:47
Известно, что для чисел А, В и С истинно утверждение а) Чему равно С, если А = 25 и В = 48? б) Чему равно С, если А = 45 и В = 18?...
osolonskaya
03.07.2020 07:32
1) Какова иерархия применения стилей к абзацу? 2) Как выделить все абзацы, имеющие один и тот же стиль? 3) Как создать новый стиль абзаца или стиль символа и применить...
alesa6002
18.02.2021 07:51
Безделье-есть интернет собщение д...
16912
29.11.2020 02:53
Чем друг от друга отличается оперативная и постоянная память...
bikkinyaev2006
12.07.2021 13:43
Выполните деление в двоичной системе счисления 1110101+1101101...
Olka1909
12.07.2021 13:43
Переведите число 123,45 из десятичной системы в двойчную...
РафикЖирафик
02.05.2022 03:38
1) заполнить массив по следующему принципу: 6 7 18 19 30 31 5 8 17 20 29 32 4 9 16 21 28 33 3 10 15 22 27 34 2 11 14 23 26 35 1 12 13 24 25 36...
jasulau
27.03.2020 16:04
Алгебра алгебра алгебра алгебра...
Lanatm12
28.12.2021 13:12
.Составить статью для словаря со словом ягода . НАДО...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x:integer;
begin
x := 1;
while x<13 do
begin
write(x*x,' ');
x := x + 2;
end;
end.