1. Информатика
  2. В последовательности из девяти

В последовательности из девяти элементов найдите количество элементов кратные 19 и 3. Составьте программу (Паскаль)

dasha5132 dasha5132    2   24.10.2021 05:13    2

Ответы
YankaManky YankaManky  24.10.2021 06:00

var

x, count, i : integer;

begin

count := 0;

for i := 1 to 9 do

   begin

   readln(x);

   if (x mod 19 = 0) and (x mod 3 = 0) then

       count := count + 1;

   end;

writeln(count);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Krupenyapolina Krupenyapolina  23.06.2019 16:10
Составить программу, которая по введенному возрасту пользователя сообщает, к какой возрастной группе он относится: до 13 лет – детство; от 14 до 24 лет – молодость;...
кросавиться11111 кросавиться11111  23.06.2019 16:10
Вчем состоит различие между сортировкой записей базы данных и сортировкой данных в столбцах электронной таблицы? (поподробней желательно)...
aliyevasevgi5 aliyevasevgi5  09.06.2019 16:30
Паскаль. оператор выбора. дано натуральное число n (n 100), что означает возраст человека в годах. дать для этого числа наименование: год , года , лет ....
Динка105 Динка105  09.06.2019 16:30
Паскаль. розгалудження. скласти програму, яка дає довідку про назву столиці (st) та про кількість населення (nas, у мільйонах) деякої країни( kr) з такого переліку:...
Ychenik77 Ychenik77  20.04.2020 15:29
Программа на языке СИ Пользователь вводит последовательность целых чисел. Конец ввода – ввод числа 0 (не считается числом введенной последовательности). Определить...
Tyshkanchik228 Tyshkanchik228  20.04.2020 15:29
Выбери правильное название команды, чтобы создать презентацию. 1. Нажми на вкладку (Анимация, переход, показ слайдов, файл) и потом нажми на кнопку (печать, создать,...
skybeast skybeast  20.04.2020 15:29
Даны полные имена файлов, хранящиеся на диске ,,С:\ , отобразите файловую структуру: C: \country\usa\info\1.txt C: \country\usa\NY.txt C: \country\russia\moskow.txt...
alenabarsukova20 alenabarsukova20  10.08.2019 08:40
2)дано целое число. определить - а) является ли оно четным - б)оканчивается ли нон цифрой 7 -в) оканчивается ли оно четной цифрой. составное условие не используется....
Xidirova04 Xidirova04  10.08.2019 08:40
Как расставить в комнате 5 стульев так, чтобы вдоль каждой стены было по 2 стульчика?...
zopanegra zopanegra  10.08.2019 08:40
Реферат набранный на компьютере содержит 1024 страницы, 56 строк, 64 символа, каждый символ i=16 бит. определите ic....

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