Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Nastyarainb
19.03.2023 17:48 •
Информатика
Дано число n. из чисел 1, 4, 9, 16, 25 , напечатать те, которые не превышают n.
Показать ответ
Ответ:
kozlovadasa52
05.07.2020 07:22
Var n,i:integer;
begin
read (n);
if (n>=1)then begin
for i:=0 to n do
begin
if (i*2+i*i+1)<=n then writeln (i*2+i*i+1);
end;
end else writeln ('Нет таких чисел');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
гик9
11.06.2020 23:17
написать скрипты.(скретч) Диалог двух друзей: условие, когда надат пробел два друга идут на встречу, если касаются друг друга выдается,сообщение Привет, дрбавляется музыка....
ттууппааяя
20.02.2022 02:29
Составить кроссворд по программированию, где обязательно должны присутствовать следующие слова: информатика, программирование, программа, исполнитель, ветвление, цикл. Остальные...
DIlyus
17.03.2023 16:19
информатика седьмой класс ответьте на вопросы: 1)для чего необходимо соблюдать правила техники безопасности. 2)Перечислите плюс и минус воздействие компьютера на человека....
Мурочkина
14.10.2020 13:53
Составьте программу которая загружает из файлов и выводит на экран портреты писателей(купала. колас. быков) и зеркально отразите изображения вниз...
vajsn
08.12.2020 12:53
Составить алгоритм и блок схему нахождения площади т периметра прямоугольника по двум сторонам...
rahmaevrail201
08.12.2020 12:53
Примером хранения числовой информации может служить...
lyubimova84
08.12.2020 12:53
Представь информацию о том,сколько тебе лет, рисунком, текстом и числом. (текстом и числом - понятно, а вот как рисунком то? ) заранее !...
alehalich
05.10.2021 11:36
Что получим в двоичной системе счисления при умножении данной пары чисел: 111001 и 101? *110001101111000101100011101...
Мусора12233334555
12.05.2023 23:04
Перечислите системы программирования: выберите несколько из 5 вариантов ответа: 1) delphi 2) visual basic 3) corel draw 4) notepad 5) ms office...
nargizcavid
26.09.2022 03:21
Назовите причины открытий.что делало их возможными? только кратко на 5 строчек примерно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read (n);
if (n>=1)then begin
for i:=0 to n do
begin
if (i*2+i*i+1)<=n then writeln (i*2+i*i+1);
end;
end else writeln ('Нет таких чисел');
end.