Ответы на вопрос:
Var n,k,i: integer; begin write('n = '); readln(n); k: =0; for i: =1 to n do if (i mod 3=0)and(i mod 6< > 0) then k: =k+1; writeln('k = ',k); end. пример: n = 100k = 17
Популярно: Информатика
-
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Оп- ределить...
Настя1111111111026.11.2022 14:09 -
Виды системного персонально оборудование ...
okhotnikoffzhep08lws06.09.2022 23:27 -
Сформировать массив из n случайных чисел от 0 до 86. найти сумму чисел кратных 3....
DashaGaff24.02.2022 07:16 -
Информатика я не понимаю вот задание: 1. Определить количество нулей в двоичной...
AhhaYakovkeva02.05.2020 00:15 -
световое табло состоит из лампочек каждая лампочка может находиться в двух состояниях...
AQUA11107.08.2022 12:04 -
РАЗЛОЖЕНИЕ НА ПРОСТЫЕ - 2 Задача Требуется разложить целое число N на простые множители,...
kotma1910.02.2022 06:10 -
Решите задания, снизу прикрепляю фото....
bugaamn110.02.2022 04:41 -
Подскажите легкую мелодию на презентацию об архитектуре p.s. чтоб читать не мешала)...
yuliyamusatova125.04.2020 10:50 -
Чи всі плани дій є алгоритмами?Чому?...
Miralis1118.11.2020 21:29 -
Небольшой доклад на тему История развития компьютерной техники...
апепе112.05.2021 07:17