Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 959 ответов!

1.Напишите программу, которая в последовательности натуральных чисел

10-11 класс

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

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

Caluit 19 апр. 2014 г., 0:31:06 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Владик73
19 апр. 2014 г., 3:19:51 (9 лет назад)

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.

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

Ответить

Другие вопросы из категории

Помогите решить

Какое значение при х=0 и y=z=1 принимает логическое выражение L=x and Z and x or y or not z and y?

Напишите программу в Паскале:

Вводится 15 чисел. Определите сколько среди них целых чисел.

СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ПОЖАЛУЙСТА ПОМОГИТЕ!

двум приятелям родители подарили по новому мотоциклу .подростки поспорили кто быстрее пройдет обкатку двигателя 2500 км. первый проехал километры за 12 дней, а второй в первый день проехал 150 км, а в каждый следующий он прибавлял 20 км. нужно разрешить их спор и выявить кто сделал обкатку быстрее

Читайте также

Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.

Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.

помогите решить Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход

количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6. Пример работы программы: Входные данные Выходные данные 3 12 25 6 18 20.2

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. Программа получает на вход количество

чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3.Количество чисел не превышает 100. Введённые числа не превышают 300.Программа должна вывести одно число – сумму чисел, оканчивающихся на 3.
Паскаль

Напишите программу, которая в последовательности натуральных

чисел определяет сумму чисел, кратных 3. Программа получает на
вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 3.
Количество чисел не превышает 100. Введённые числа не превышают 300.
Программа должна вывести одно число – сумму чисел, кратных 3.

Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел, не превосходящих

256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.



Вы находитесь на странице вопроса "1.Напишите программу, которая в последовательности натуральных чисел", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.