Ответы на вопрос:
Program n1; var a,k: integer; begin k: =0; readln(a); while a< > 0 do begin if (a mod 6=0) or (a mod 11=0) then k: =k+1; readln(a); end; writeln(k); end.
Популярно: Информатика
-
Написати програму, яка вводить по рядках з клавіатури двомірний масив...
asel0707113.04.2020 05:37 -
Напишите примеры письма в сетевом этикете 9 класс ИКТ...
cracavica21122004.07.2020 00:00 -
Y=2x+3 информатика при х=-7 -4 .... 23...
zofiaoxd1zb17.02.2022 12:16 -
Разархивировать сжатое сообщение. Указать какой алгоритм сжатия был...
omarova0606.04.2021 11:31 -
То в гору, то с горы, то вверх, то вниз! Посчитайте, сколько было...
Рмирот01.04.2020 06:14 -
Створити список з 10 випадкових чисел (від 4 до 25). Вивести створений...
kirpol83p01doz17.11.2020 11:17 -
какое значение будет присвоено переменной t после выполнения фрагмента...
munisa33323.07.2022 06:41 -
Задание 2. Дана таблица продажи техники: 2.1. Запишите формулу для...
ksss402.10.2021 07:40 -
Методы визуализации графической информации на компьютере...
инна190305.12.2021 19:41 -
2. Даны множества A={3, 5, 6, 7, 9, 10, 12, 15) В={4, 6, 7, 8, 15}...
Ania0713.05.2023 12:43