Напишите программу, которая в последовательности целых чисел определяет количество трехзначных чисел, кратных 7. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30000. про-грамма должна вывести одно число: количество трехзначных чисел, кратных 7
Marka231
1
22.05.2019 06:40
1
Другие вопросы по теме Информатика
Костя111113
14.02.2021 17:07
65893
14.02.2021 17:07
katia6747
17.06.2019 11:50
thgshsgs72t392
17.06.2019 11:50
mariazhu
17.06.2019 11:50
Shavelko
17.06.2019 11:50
dierchik25
17.06.2019 11:50
чулпан2008
21.06.2019 22:30
autistic04
21.06.2019 22:30
Популярные вопросы
- Атом элемента имеет на 2 электрона больше чем анион натрия...
3 - Решите ! ) рабочий должен был изготовить за день 63 детали.через 2 ч работы ему...
3 - Выражение (a+2a²--3a²) 2a²b(2a-3b)-a²b(a-2b)...
2 - Найдите координаты точки пересечения графиков функции y=-4x+2и y=3x-5...
1 - Переведите предложение the air used to be good , the sun used to shine and it used...
2 - Заинька! -зовёт лисица- возле елочки-кислица! приходи! растёт здесь густо эта заячья...
1 - Польский королевич кандидат на престол...
2 - Напиши заявление на тему,для директора хочу открыть кружок или провести концерт...
2 - Решите неравенство 1) 6m-2 7m+8 2) m+4 12+9m 3) 7+6m 2(5m-8)...
1 - Краткое сочинение на тему прогулка по тихвину в 17 веке! ! заранее !...
3
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.