Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
имилька
08.04.2020 23:54 •
Информатика
На языке pascal abc реализовать программу, выводящую первых к нечётных чисел 1,3,5,. (к задаётся с клавиатуры).
Показать ответ
Ответ:
sonyashestakova
06.10.2020 08:23
Var
k:integer;
Begin
Write('k = ');ReadLn(k);
For k:= 1 to k do
Write(k*2-1,' ')
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
пецааааа1
02.05.2020 09:33
Создайте сайт в codepen на тему аниме , там должно быть: меню, главная страница, ну и где обьясняются даты выхода аниме или манги ...
vikysik927
10.03.2022 10:38
)№1.исследуйте школу, в которой вы учитесь, как систему: 1) какого типа эта система: естественная или искусственная? 2)выделите входящие в нее подсистемы 3) выделите...
sirozazuruhin
28.11.2022 23:47
Заполни таблицу компьютерная мышь и экранными объектами...
YankaUshko
28.11.2022 23:47
Написать программу на языке программирования паскаль зная температуру воздуха, определить вид осадков (дождь или снег)....
dgfdgrrfd
03.05.2023 11:41
Что делать если на кейпаде Free Wolf K15 персонаж не двигается игра PUBG?...
АлинаСтрельцова
13.01.2020 04:33
Python Написать программу, выводящую на консоль все числа от 1 до 1000. Найти сумму всех чисел...
Виола122006
14.12.2020 19:56
Э чмошники кто подскажитКакой пк лучше брать для игр и ценовой сигмент...
настя51001
09.11.2021 06:36
artplays v-1200 как убрать скрип...
barenzi
08.10.2020 09:16
Почему белки выполняют так много функций?...
pytbrain2007
08.10.2020 09:16
Океан река море озеро прпруд как назвать одним словом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k:integer;
Begin
Write('k = ');ReadLn(k);
For k:= 1 to k do
Write(k*2-1,' ')
End.