Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
KiskaDasha
22.04.2020 20:05 •
Информатика
1. используя цикл for вывести на экран чётные числа от 1 до 40 2. найдите произведение нечётных чисел от 1 до n
Показать ответ
Ответ:
Aind1
04.10.2020 02:11
1.
var i:integer;
begin
for i:=1 to 40 do
if not odd(i) then write(i:3);
end.
2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do
if odd(i) then p:=p*i;
write(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Varkorn
06.06.2022 01:06
Расстояние между двумя городами равно 362 км. Определи расстояние между изображениями этих городов на карте, если числовой масштаб карты равен 1:4000000. (ответ округли до целых...
Ника72432525
04.01.2022 01:34
Во Как называется условный оператор, в котором при выполнении или невыполнении его условия выполняется несколько операторов?...
tatyanachueva
28.04.2023 23:35
2D жане 3D айырмашылыктарры не де...
systemka470
03.12.2020 12:19
Изображение с длиной 256 и шириной 128 пикселей. Найдите разницу (в Кбайт) между закодированным изображением, если один пиксель кодируется 4 битами, и 2 битами?...
Vjjiychyuy
27.09.2021 02:13
Скопируйте список из задания. Пользователь вводит свое самое любимое блюдо.Если оно есть в списке, программа выводит Блюдо есть в спискеИначе ничего не выводитЯзык программирования:...
olgatolga
03.05.2022 15:30
Наведіть класифікацію пам’яті комп’ютера. Яка основна властивість пам’я- ті?Які одиниці вимірювання значень цієї властивості?...
Miratrix
09.01.2023 03:24
Завдання для самостійного виконання 1 Створіть масив, елементами якого є рядки: звук, колонка, кодування, модель. Виведіть масив на екран. 2 Створіть масив, елементами якого є цілі...
Карпыч1
09.11.2022 13:29
1. Определить, какое равенство точнее. 2. Округлить сомнительные цифры числа, оставив верные знаки: а) в узком смысле; б) в широком смысле. Определить абсолютную погрешность результата....
avladimirovna324
18.04.2020 16:41
Задание 1. Какие признаки подтверждают, что горение газовой горелки– химическое явление? а) появление дыма б) наличие звука в) образование осадка г) выделение теплоты и света. Задание...
shakmatovakseni
11.06.2022 06:51
Таудың синонимі кандай аитндаршш...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
for i:=1 to 40 do
if not odd(i) then write(i:3);
end.
2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do
if odd(i) then p:=p*i;
write(p);
end.