1.Напишите программу, которая в последовательности натуральных чисел определяет количество
1.Напишите программу, которая в последовательности естественных чисел
определяет количество чисел, кратных 4. Программка получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превосходит 1000. Введённые числа не превосходят 30 000. Программка обязана
вывести одно число количество чисел, кратных 4.
2. Напишите программку, которая в последовательности естественных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превосходит 1000. Введённые числа не превыша ют 30 000. Программа обязана вывести одно число малое число, кратное 3.
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 alt;min then min:=a;
end;
write(min);
end.
В компиляторе не проверял. Фортуны.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.