1. Напишите программу, которая в последовательности натуральных чисел определяет
максимальное число, кратное 4. Программа получает на вход количество чисел в
последовательности, а затем сами числа. Впоследовательности всегда имеется число,
кратное 4. Количество чисел не превышает 1000. Введенные числа не превышают 30 000,
Программа должна вывести одно число и максимальное число, кратное 4,
2. Напишите программу, которая в последовательности натуральных чисел определяет
количество чисел, кратных В. Программа получает на вход количество чиселв
последовательности, а затем сами числа, в последовательности всегда имеется число,
кратное 3. Количество чисел не превышает 100. Введенные числа не превышают 300,
Программа должна вывести одно число количество чисел, кратных З.
3. Напишите программу, которая в последовательности натуральных чисел определяет
количество чисел, кратных 6. Программа получает на вход количество чисел в
последовательности, а затем сами числа, в последовательности всегда имеется число,
кратное 6,
const
Gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы',
'Э','э','Ю','ю','Я','я'];
stop='$';
var
c:char;
n:integer;
begin
Writeln('Вводите текст по одному символу, завершив ввод символом ',stop);
n:=0;
repeat
ReadLn(c);
if c in Gl then Inc(n)
until c=stop;
Writeln('Количество гласных букв равно ',n)
end.
Напоминаю, что в Паскале ввод каждого отдельного символа с клавиатуры должен завершаться нажатием клавиши Enter!