Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 4. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число – количество чисел, кратных 4.
Dobrota2017
3
22.05.2019 06:20
4
Другие вопросы по теме Информатика
Vagapova1
15.06.2019 06:00
atomis
15.06.2019 06:00
Korolev776
13.05.2020 20:15
1sherlock2
13.05.2020 20:14
SemyaTanya
12.06.2019 22:40
лера2042
12.06.2019 22:40
Популярные вопросы
- Что запрещено сотрудникам магазина в целях предупреждения пожара ? cпасибо....
1 - УМОЛЯЮ!! ОЧЕНЬ Відрізок BD — висота трикутника ABC. Знайдіть довжину сторони BC,...
3 - Докажите что Босиком по небу миниатюра пожайлуста)...
2 - С ФИЗИКОЙ Висота греблі становить 185м, потужність водяного потоку 14 225 МВт....
3 - МНЕ Нужно составить изложение...
2 - Визначте масову частку розвинених речовини, якщо: А. У 80 г води розчинилися 20...
2 - На основании приведенных ниже данных (в млрд. долл.) составьте балансовый отчет...
1 - Выбери верный вариант ответа. При извержении вулкана камни горной породы выбрасываются...
2 - Тело массой 2 кг падает с высоты 6 метров какую скорость оно будет иметь пролетев...
3 - 15a в квадрате* b в кубе(-2аb в квадрате)в 5 степен...
1
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
DIM a(n)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
IF INT (a(n) / 4) = a(n) / 4 THEN z = z + 1
NEXT i
PRINT z
END
Это программа из ГИА.. -_-
var a,b :integer;
begin
readln (a);
b:=0;
while a<>0 do begin
if (a mod 4 = 0) then
b:= b+1;
readln (a); end;
write (b);
end.