Вопрос по информатике:
Помогите решить задачу на Паскале, пожалуйста
Дана последовательность целых положительных чисел. Найти произведение только тех из них, которые больше заданного числа М. Если таких чисел нет, то выдать сообщение об этом.
Пожаловаться
- 14.06.2018 05:52
- Информатика
- remove_red_eye 13554
- thumb_up 29
Ответы и объяснения 1
Program Test;
const Max = 10; //Последний член последовательности
var i, M, proizv: integer; Bol: boolean; Arr: array[1..Max] of integer;
Begin
proizv := 1;
Bol := false;
Write('Введите М: ');
Readln(M);
Writeln();
for i:= 1 to Max do
begin
Arr[i] := i;
if (Arr[i] > M) then
begin
proizv := proizv * Arr[i];
Bol := true;
end;
end;
if (Bol = false) then
Writeln('Элементов больше числа М нет!')
else
Writeln('Произведение = ', proizv);
End.
const Max = 10; //Последний член последовательности
var i, M, proizv: integer; Bol: boolean; Arr: array[1..Max] of integer;
Begin
proizv := 1;
Bol := false;
Write('Введите М: ');
Readln(M);
Writeln();
for i:= 1 to Max do
begin
Arr[i] := i;
if (Arr[i] > M) then
begin
proizv := proizv * Arr[i];
Bol := true;
end;
end;
if (Bol = false) then
Writeln('Элементов больше числа М нет!')
else
Writeln('Произведение = ', proizv);
End.
Пожаловаться
- 15.06.2018 18:01
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы