n = int(input())
for i in range(n + 1):
if i % 6 == 0 and str(i)[0] == 4:
print(i)
Объяснение:
1 - True/False
2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.
3 - Конъюнкция
4 - X И Y И Z
5 - OR
6 - 1. Инверсия;
2. Конъюнкция;
3. Дизъюнкция;
4. Импликация;
5. Эквивалентность.
7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.
8 - Импликация
9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны
10 - Конъюнкция
11 - ?
12 - ?
Объяснение:
1. Что такое носитель? (Б) Материальная среда, используемая для записи и хранения информации
2. Носитель, имеющий наиболее массовый употребление – это (Г) Бумага
3. В каком году Александр Белл изобрел телефон? (В) 1876 г.
4. Кто создал теорию информации? (Б) К. Шеннон
5. Что такое избыточность кода? (В) Многократное повторение передаваемых данных -- неудачный ответ. Скорее многократное повторение - это один из добавить избыточность кода, есть и другие
6. Какие средства связи используются в компьютерных сетях? (Б) Радиосвязь -- есть и другие, конечно
7. Вместимость – это (А) Плотность хранения данных -- самый удачный вариант из предложенных, но всё же это не плотность хранения, а количество хранимой информации
8. Где появилась бумага? (А) В Китае
9. В каком году возникла теория связи? - нет верного ответа. Обычно упоминают 1948 год, когда была опубликована работа Шеннона "Математическая теория связи"
10. Винчестер компьютера – это (А) Пакет магнитных дисков, надетых на общую ось
begin
var count := 0;
var num := ReadInteger;
if num > 1000 then
Println('Чисел больше 1000')
else
for var i := 1 to num do
begin
var chisla := ReadInteger;
if chisla > 30000 then
Println('Превышенно значение числа')
else
if (chisla mod 10 = 4) and (chisla mod 6 = 0) then
Inc(count);
end;
Print('Колличество чисел удовлетворяющих условие: ', count);
end.