Ввести с клавиатуры n отрицательных и положительных чисел. они могут принимать значения от -10000 до 10000. найти кол-во трёхзначных чисел кратных 7 по модулю заканчивающихся на 1 без массивов
Alina21112001
1
04.10.2019 14:10
0
Другие вопросы по теме Информатика
viktoriya229
05.05.2021 04:11
volkAlina234
05.05.2021 04:30
Ks1mak
11.03.2021 21:31
ksuha0812
11.03.2021 21:32
WTFHELP
11.03.2021 21:39
bogdOJ
11.03.2021 21:39
didisa0282
11.03.2021 21:42
superbest
11.03.2021 21:44
sayferbil
11.03.2021 21:47
Популярные вопросы
- В чем необычность развязки традиционной любовной драмы ( я - вы - другой )?...
1 - гелікоптер рухається зі швидкістю 50м/с.Скільки часу триватиме подорож,якщо...
3 - . з одного пункту одночасно протилежних напрямах Вирушили велосипедист і пішохід....
3 - Задание 2. Луч АЕ – биссектриса угла ВАС. На сторонах угла отложены равные...
3 - 3 Write affirmative or negative sentences using the past continuous. 1/ walk...
2 - Биология 10 класс Благодаря чему обеспечивается постоянство числа и форм хромосом...
1 - решить примеры .первое задание : в,г,д,еа второе : г,д,е....
2 - Що є результатом оперативного планування?...
3 - Придумайте по рисунку задачу НА ЧАСТИ и решите ее(ЕЩЕ НАПИШИТЕ САМУ ЗАДАЧУ...
3 - кто ответит дам макс. оценку...
1
var
n, kol, i, ch: integer;
begin
readln(n);
kol := 0;
for i := 1 to n do
begin
readln(ch);
if (ch mod 10 = 1) and (ch mod 7 = 0) and (ch <= 999) and (ch >= 100) then kol += 1;
end;
writeln(kol);
end.