1. Информатика
  2. Напишите программу, которая

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 и не оканчивающихся на 8. Про-грамма должна вывести одно число: количество чисел, кратных 6 и не оканчивающихся на 8.
Пример работы программы:
Входные данные
36
18
14
48
54
0
Выходные данные
2

viginipinigivini viginipinigivini    3   29.04.2020 01:31    6

Ответы
AgeraClassik AgeraClassik  12.08.2020 17:46

var k, n, a, amax: integer;

begin

amax:=0;

readln(n);

for k:=1 to n do

begin

readln(a);

if (a mod 6 = 0) and (a>amax) then

amax:=a;

end;

writeln(amax);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
CHeryPk CHeryPk  13.12.2021 19:02
Практична робота з теми : Табличний процесор ,до іть будь ласка з вислугою ,якщо дано ,що : вислугу обчислювати за умовою :стаж менше 5 років - 10% від заробленого ,від 5 до 10...
карим050 карим050  13.12.2021 19:02
Задание 1 ( ). Составьте кроссворд, содержание которого составляют термины по теме «Текст как форма представления информации. Компьютер – основной инструмент подготовки текстов»....
ZorinaMasha2512 ZorinaMasha2512  13.07.2019 07:10
На языке программирования pascal создать программу нахождения наибольшего общего делителя (нод)...
TearPrincess2 TearPrincess2  13.07.2019 07:10
Составьте программу вычисления суммы нечетных цифр натурального числа м(паскаль абц)...
НМИ2003 НМИ2003  13.07.2019 07:10
Составить программу нахождения площади ромба в паскале...
настя6798 настя6798  13.07.2019 07:10
Напишите формулу связывающую между собой количество возможных событий и количество информации...
zverok21rus zverok21rus  23.07.2019 06:20
Var x,y,p,i: integer; begin readln(x,y); for i: =1 to abs(y) do p: =p+x; if y 0 then p: =-p; writeln(p); end. что такое abc?...
hadika2006 hadika2006  09.02.2022 14:03
Вставь пропущенные слова. 4 класс информатика рабочая ттердь упр 6 2 часть страница 45...
мадина3031 мадина3031  09.02.2022 13:53
Составить в виде блок схем ветвящихся алгоритмов Задание 2. Составил алгоритм для определения того, выполнен ли план по продаже товаров за день, если известны план продажи (в рублях),...
AlinaMalina1011 AlinaMalina1011  09.02.2022 13:48
2. Установите соответствие: *.bmp *.txt a 6 B Г д Е Номер 2...

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