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

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

Найти нужный

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

50 баллов, ИНФОРМАТИКА 7 КЛАСС ПОМОГИТЕ! Рисунок размером 1024 x 512 пикселей сохранили в виде несжатого файла размером 1,5 Мб. Какое количество инфор... По какому принципу расположены на клавиатуре русские буквы?? Прям резко надоо, плиииз... заранее спасибо... Какие способы идентификации личности используются при предоставлении доступа к информации?... слово арка закодировано числовой последовательностью 0100100010 причем коды согласных и гласных букв имеют различную длинну какое слово по этому коду... 14. Покажите в каком пункте ответа представлен моноширинный шрифт: А) Times New Roman; B) Courier New; C) Arial; D) Bodoni MT Black. 13. Формат ст...