Напишите программу которая в последовательности натуральных чисел определяет количество всех чисел, кратных 6 и оканчивающихся на 0. программа получает на вход натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел оканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). кол-во чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число: кол-во всех чисел последовательности, кратных 6 и оканчивающихся на 0.

Ответы

19557 05.10.2020 14:59

Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Hatmonu 30.03.2021 00:14

1. Запишите выполнение приведенного фрагмента для табличной ве- личины, значениями элементов которой являются числа: 2; -2; 3; 0,25; -4.dob := 1;for i:=1 to 5 do dob :=...

Mashaf555 30.03.2021 00:03

1.Запишіть цифрою кількість об’єктів схеми Шеннона, яка є моделлю отримання й передавання інформації у вигляді закодованих повідомлень від джерела до приймача.2.Запишіть...

Stultus 29.03.2021 23:58

1.Ввести массив из N целых чисел. Найти наибольшее число из элементов с четными номерами и сумму этих элементов. Вывести на экран наибольшее значение и сумму. 2. Ввести...

DarkPear 29.03.2021 23:53

Задача по информатике. Нужно написать программу(язык Pascal) Ввести с клавиатуры строку символов. Выяснить: есть ли в строке цифры? Вывести отдельно на экран в обратном...

ЮлияБогинская 29.03.2021 23:50

Функция ABS в Excel сделает: a) Приведёт весь текст к верхнему регистру b) Изменит тип данных с числа на текст c) Найдёт модуль числа d) Вычислит вторую степень числа...

motztv21 06.06.2019 02:50

Записать следующие числа в развернутой форме: 1) 5436,147 (10) 2) 542,723 (8) 3)1001110(2) 4)45de(16)...

Кирито7449 25.08.2019 11:10

Лиса алиса делит 16 одинаковых золотых монет между собой, котом базилио и дуремаром. она хочет, чтобы ей досталось больше, чем каждому остальному, но при этом и у дуремара...

vadik46 06.12.2020 14:36

4. Пользователь работал с каталогом С:\Литература\Лермонтов\Произведения. Сначала он поднялся на один уровень вверх, затем спустился в каталог Грушницкий, затем поднялся...

Chernaya4 06.12.2020 14:36

решить задачи на PYTHON. Какие сможете. Буду оооченьь признательнааа 1. Вводится последовательность целых чисел. Известно, что последний элемент последовательности равен...

darinachirkova2 06.12.2020 14:35

Фирма продает стройматериалы – цемент, песок, щебень. объемы продаж измеряются в кубометрах. На диаграмме 1 показаны суммарные продажи по всем трем типам стройматериалов,...

Популярные вопросы