Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
usereldoc9857
29.10.2022 20:27 •
Информатика
Напишите программу вывода последовательности чисел: 1 9 25 49 81 121 на паскале через while надо как-то)
Ответ:
nikitakurganov
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 оценок)
Популярные вопросы: Информатика
msnyamkina
20.08.2021 11:11
КТО РАЗБИРАЕТСЯ В PYTHON РЕШИТЕ PLEASE ЭТУ ЗАДАЧУ Электронный попугайБоба очень любит попугаев, но у него аллергия на птиц. Поэтому он захотел создать себе электронного...
СталкерняотВовы
01.02.2020 10:58
Какое оборудование употребляется для разметки области рисования?Прокомментируйте действие клавиш CTRL+D.Объясните функцию волшебной палочки....
ДаняБл
01.11.2022 05:42
1. Какое оборудование используется для разметкиобласти рисования? ИНФОРМАТИКА...
iriska198501
14.08.2020 05:12
Программу написать в Python....
Robobob
26.02.2020 11:22
C++ Пробелы по правилам В строке имеется несколько слов, разделенных одним или несколькими пробелами. Требуется убрать из текста лишние пробелы: два и более пробелов...
09kok90
12.07.2021 00:58
Программу написать в Python....
HarryPotter2015
26.08.2022 12:59
Скільки зразків (m) можна викликати з мережі Хопфілда, якщо кожен збережений вектор містить n = 10 елементів? Обґрунтуйте відповідь....
artemkrav99ozgp1u
09.02.2020 05:30
Информатика Построение таблиц истинности для логических выражений 1. просчитайте утверждения, выберите в выпадающем списке значение для данного логического выражения:...
thetrueraincorn
08.12.2020 06:33
Нужно законспектировать основные понятия...
Gafana
09.06.2021 11:18
Please please please please please please please please please please please please please please please please please please please please please please please please...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.