1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. Впоследовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введенные числа не превышают 30 000, Программа должна вывести одно число и максимальное число, кратное 4, 2. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных В. Программа получает на вход количество чиселв последовательности, а затем сами числа, в последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введенные числа не превышают 300, Программа должна вывести одно число количество чисел, кратных З. 3. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа, в последовательности всегда имеется число, кратное 6,
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько информационных каналов мы разделим на группы? Приведите им пример?
Автор: svetkinm158
Виконати практичне завдання з підручника с.142(фотозвіт, скрін роботи)
Автор: Суховодова599
Ребят захожу в гта или фортнайт и открывается чат дискорд можете подзказать как убрать
Автор: Андреевнатест707
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!