1.Напишите программу, которая в последовательности натуральных чиселопределяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.

2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.

1 ответ

Посмотреть ответы

Megamozg

2205

1)var i,x,n,a:integer
begin
x:=0;
read(n);
for i:=1 to n do //Если количество чисел не дано, то надо писать while not eof.
begin
read(a);
if a mod 4 = 0 then inc(x) //x:=x+1;
end;
write(x);
end.

2)var i,min,a,n:integer;
begin
min:=30001;
read(n);
for i:=1 to n do begin
read(a);
if a mod 3 = 0 then
if a<min then min:=a;
end;
write(min);
end.

В компиляторе не проверял. Удачи.

Хороший ответ

14 октября 2022 16:55

Остались вопросы?

Найти нужный

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

БЛ, ДА ПОМОГИТЕ ЖЕ!(( Двухканальная (стерео) запись имеет информационный объём 900 Кбайт, полученный при частоте дискретизации 51200 Гц и разрешении 8... Вывести на экран степени числа 2 до десятой степени, используя различные типы циклов (отдельно цикл с использованием while, отдельно цикл с использова... Друзья решили зашифровать сообщения из английских букв, записывая вместо каждой буквы её номер в алфави- те (без пробелов). Номера букв даны в таблиц... Запишите 3 сообщения, которые адресованы конкретному человеку и 3, которые имеют общий характер. Обоснуйте ответ.... Помогите пожалуйста, решите сколько сможете!! Найдите значения выражений: 1) (1 v 1) v (1 v 0) 2) ((1 v 0) v 1) v1) 3) (0 & 1) & 1 4) 1 &a...