Войти Регистрация Спроси ai-bota

Найти произведение четных чисел в промежутке от 23 до 5

Ответ:

Милошка28

17.07.2020 12:46

Var i,s:longint;
begin s:=1;
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

lyudagrigoreva2

18.06.2021 10:01

В 5 байт сколько Мбайт и Кбайт?...

combatcat

21.10.2020 17:53

3. Напишите программу, которая вводит два четырехзначных числа и удаляет в первом числе цифру десятков, а во втором числе цифру сотен. Затем перемножает полученные...

AMINA2007133456

22.09.2020 23:39

заменить элементы, значение которых больше среднего арифметического на это среднее арифметическое....

Danielkz02

19.05.2023 08:24

Вларце хранится серебряные и золотые монеты. среди них золотых 18 монет. сообщение о том, что из дворца достали золотую монету , несёт 2 бита информации. сколько...

afdzafbg

19.05.2023 08:24

На доске после урока информатики остались такие равенства: 11 + 1 = 100 22 + 1 = 100 44 + 4 = ! какое число, кроме 48, можно написать вместо знака ! , если известно,...

Дария2403

19.05.2023 08:24

Составьте программу которая заполняет массив b1..8 случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количеством...

YanaRy

26.09.2020 17:17

Какая частица возникает в результате приведенной ядерной реакции...

Ернай

25.03.2022 09:31

Pascal abc пишет, что ошибка в 16 и 19 строке: 1. program qq; 2. var x, y, z, c, a, b: real; 3. begin 4. writeln( введите стоимость билета бизнесс-класса: ); 5.readln(x);...

GeBorgge

11.11.2021 03:24

Составить 2-3 цепочки питания, которые образуются в лесу,поле или на лугу. при желании можешь использовать информацию из текста....

gayazhan

11.11.2021 03:24

Марфологический разбор слова в газете ....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку