сервис вопросов и ответов1. В последовательности чисел подсчитать произведение чисел, кратных 3.
10-11 класс|
|
2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных.
3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).
Настёнышь2001
20 июля 2013 г., 3:48:47 (10 лет назад)
Edik15
20 июля 2013 г., 4:32:48 (10 лет назад)
1)
var n,i,p:longint;a:array[1..100]of longint;
begin
read(n);p:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 3=0 then p:=p*a[i];
writeln(p);
end.
2)
var n,i,s,p:longint;a:array[1..100]of longint;
begin
read(n);
p:=1;s:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
if p>s then writeln('proizvedenie')
else if p<s then writeln('summa')
else writeln('ravni');
end.
3)
var n,f,i,o:longint;a:array[1..100]of longint;
begin
read(n);f:=0;
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
if a[i]<0 then f:=f+1;
if f=2 then begin o:=a[i];break;end;
end;
writeln(o);
end.
Ответить
Другие вопросы из категории
Помогите пожалуйста(сделайте подробно)
1.Какова мощность алфавита, с помощью которого записано сообщение,
содержащее 2048 символов, если его объем составляет 1/512 часть
мегабайта?
2.система оптического распознавания текстов позволяет преобразовывать
отсканированные страницы документа в тест со скоростью 4 страницы в
минуту и использует алфавит мощностью 65536 символов. Какое количество
информации будет нести тестовый документ после 5 минут работ, если
каждая страница содержит 40 строк по 50 символов?
Раскодируйте последовательность, упакованную с помощью алгоритма RLE (шестнадцатирич.коды) : 01 4D 8E 41 01 4D 8E 41. Использовать таблицу ASII.
Определите кол-во байтов в исходной и распакованной последовательности и вычислите коэффиц.сжатия.
1. Дано шестнадцатиричное число 12CD. Получить его двоичный аналог.
2. Дано десятичное число X=563. Представить его в ячейке.
3. Дано десятичное число X= -62. Представить его в восьмиразрядной ячейке.
4. Дана шестнадцатеричная запись числа X=FB32 в ячейке. Получить исходное число в десятичной системе.
Читайте также
Составить программу в PASCAL.
1. В последовательности чисел подсчитать произведение чисел, кратных 3.
помогите решить Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6. Пример работы программы: Входные данные Выходные данные 3 12 25 6 18 20.2
1.Напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной
последовательности кратных пяти
Вы находитесь на странице вопроса "1. В последовательности чисел подсчитать произведение чисел, кратных 3.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.