Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Polly2011
06.10.2020 20:01 •
Информатика
Напишите программу вывода нечетных чисел от 1 до n
Ответ:
Zloo6024600
05.10.2020 14:01
Program n1;
var n,i: integer;
begin
readln(n);
for i:=1 to n do if i mod 2<>0 then write(i,' ');
end.
0,0
(0 оценок)
Ответ:
agibalovaksyu
05.10.2020 14:01
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
begin
var n:=ReadInteger('n=');
Range(1,n,2).Println
end.
Пример
n= 58
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57
0,0
(0 оценок)
Популярные вопросы: Информатика
makssabarov
05.12.2021 08:38
Написать программу для ввода значения величины x целого типа, присваивания величине y действительного типа значения 5.5 , вычисления значения величины z=x-y и вывода...
данил1780
05.12.2021 08:38
Какая часть указателя ресурса сети интернет указывает на протокол передачи? a) http: //; b) c) index.html; d) msu.ru/physics....
Sumiya666
05.12.2021 08:38
Саша ездил с родителями в отпуск.3 дня он провёл в дороге.половину отпуска загорал и купался в море.в конце путешествия отправился с родителями в деревню,где пробыл...
дира3
14.12.2020 08:37
Var n,s: integer; begin n: =0; s: =0; while s =35 do begin n: = n+1; s: =s+4 end; write(n) end. решите , надо с решением....
Фприт
28.11.2022 22:55
Что такое телеконференция? как стать участником телеконференции?...
SelesTia3
22.03.2023 04:41
Составьте блок-схему суммы 2+4+6+8...
gavric228
01.03.2023 19:53
9.Сообщение занимает 10 страниц по 40 строк, в каждой строке записано по 60 символов. Информационный объем всего сообщения 3000 байтов. Сколько символов в алфавите...
Sobolev43
27.03.2020 23:30
С++ реализовать в виде класса набор подпрограмм для выполнения следующих операций над обыкновенными дробями вида (p — целое, q — натуральное): 1) сложение; 2) вычитание;...
Kachmaresghg
27.03.2020 23:30
Файл, полное имя которого было c: \doc\myletter.c сохранили в подкаталоге txt корневого каталога диска e. каково полное имя сохраненного файла? 1) e: \txt\myletter.e...
andreygaevskiy
27.03.2020 23:30
1.каждый символ в unicode закодирован двухбайтным словом. оцените информационный объем следующего предложения в этой кодировке: аппетит приходит во время еды. 1)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var n,i: integer;
begin
readln(n);
for i:=1 to n do if i mod 2<>0 then write(i,' ');
end.
begin
var n:=ReadInteger('n=');
Range(1,n,2).Println
end.
Пример
n= 58
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57