Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Aigerim1111111111
18.05.2023 20:18 •
Информатика
Вывести первые n натуральных чисел, сумма цифр которых нечётная. паскаль. через вложенные циклы со счетчиком.
Показать ответ
Ответ:
sashasa02
04.10.2020 23:43
Var n,i,a,k,s:integer;
begin
write('n = ');
readln(n);
k:=0;
i:=0;
while k<n do
begin
i:=i+1;
s:=0;
a:=i;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
if s mod 2 <> 0
then begin write(i,' '); k:=k+1; end;
end;
end.
Пример:
n = 20
1 3 5 7 9 10 12 14 16 18 21 23 25 27 29 30 32 34 36 38
0,0
(0 оценок)
Популярные вопросы: Информатика
eltsina01
25.05.2021 19:32
Какая система счисления не является позиционной? 1) единичная 2)шестидесятеричная 3)шестнадцатеричная 4) двоичная...
Kizi89
08.03.2022 06:01
Что такое linq? для чего нужно и как им правильно пользоваться? на примере pascalabc.net. подробно опишите функций типа where, select,aggregate и т.д максимум ....
LiveRiot
08.03.2022 06:01
«дележ яблок» условие n школьников делят k яблок поровну, неделящийся остаток остается в корзинке. сколько яблок достанется каждому школьнику? сколько яблок останется...
katya6913
07.04.2022 02:02
Как можно распечатать только четные страницы...
АбзикВ
27.11.2020 18:45
Как можно распечатать только выделенную часть текста...
даньго
19.04.2021 05:35
Написати програму яка при введенні числа в діапазоні від 1 до 20 додає до нього слово гривня в правильній форм...
liliyazaleeva12
09.03.2022 01:43
1. Алгоритм вычисления значения функции F(n), где n - натуральное число, задан следующими соотношениями: F(1) = 1 F(n) = F(n-1)*n, при n 1 Чему равно значение функции...
макс3093
28.03.2023 14:36
Напишите программу,которая в последовательности натуральных чисел: а) определяет сумму чисел,кратных 9; б) считает количество двузначных чисел . Программа получает...
Djessika24
22.03.2020 21:16
1. 1.1. выполните следующий расчет: фио оклад млн.руб.стаж работыдолжность доплата 1доплата 2итого иванов а.а. 3,5 10 повар петров в.в. 4,2 12 директор сидоров с.с....
Азяка21
22.03.2020 21:16
Модем передает данные со скоростью 7680 бит/с. передача текстового файла заняла 1,5 мин. определите, сколько страниц содержал переданный текст, если известно, что...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n = ');
readln(n);
k:=0;
i:=0;
while k<n do
begin
i:=i+1;
s:=0;
a:=i;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
if s mod 2 <> 0
then begin write(i,' '); k:=k+1; end;
end;
end.
Пример:
n = 20
1 3 5 7 9 10 12 14 16 18 21 23 25 27 29 30 32 34 36 38