Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
маша5002
01.11.2022 14:11 •
Информатика
Напишите программу вывода нечетных чисел от 1 до n
Ответ:
Ramazanguly
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 оценок)
Ответ:
maximmaxtin
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 оценок)
Популярные вопросы: Информатика
d2e0n0i5s
25.02.2020 17:34
A={a,b,c}. Определить, входит ли в слово P символ a. ответ: слово из одного символа a (да, входит) или пустое слово (нет). Использовать алгоритм работы машины Тьюринга....
lenafok83
17.05.2023 10:21
1)Напишите программу,которая принимает от пользователя два целых числа,затем их складывает и выводит результат. 2)Напишите программу (на Pascal или C++),которая выводит на экран...
Екатерина12311111
09.04.2023 05:40
определите значение переменной b после выполнения фрагмента алгоритма с решением...
Нюша1390
18.04.2020 01:23
Решить по информатике. 8 класс. информационный объём изображения размером 256*128 равен 512 кбайт. необходимо определить глубину кодирования цвета....
tvojrulet16
14.11.2020 15:19
Абсолютной ссылкой является: B20 &20L *20^20 $C$20...
ktlwfh
07.01.2020 17:27
Вкодировке windows каждый символ кодируется одним байтом. определите информационный объем сообщения в этой кодировке: сижу за решеткой в темнице сырой 1) 32 бит 2) 27 байт 3) 256...
Голес
28.03.2021 14:41
На столе лежат четыре карточки. известно, что на одной стороне каждой карточки записано буква, а на другой- число. сверху на карточках написано: м , 16 , 7 . есть предположение:...
AMAYA000
28.03.2021 14:41
Написать поучения будущим школьникам. (на подобии поучений мономаха) объем большой нужен на 1-2 станицы тетрадных...
Mamulia1221
28.03.2021 14:41
5слов с одним звуком,например: деревня слышится звук ,э, и 5слов с двумя звуками например: ель слышится звук ,иэ,...
zangeevdima
28.03.2021 14:41
Два лыжника вышли одновременно из двух поселков навстречу друг друга . один лыжник шел со скоростью 14 км в час, другой со скоростью 17 км в час . они встретились через три часа...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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