Вопрос по информатике:
Pascal. Написать такую программу:
На вход получает N - количество элементов последовательности чисел.
Затем следуют элементы последовательности.
Программа должна вывести все отрицательные элементы последовательности, чьи квадраты не превосходят 7000, в порядке, обратном порядку их ввода.
Например на вход идут:
4
-3
6
-7
-99
На выходе получаем:
-7
-3
Я предлагаю такое начало программы:
program num9;
const N = 5;
var a : array [1..N] of integer;
i, m : integer;
begin for i := 1 to N do
readln (a[i]);
m := a[i];
if (m < 0) and (m*m < 7000) then
Как следует поступить дальше?
- 16.12.2017 17:10
- Информатика
- remove_red_eye 3903
- thumb_up 30
Ответы и объяснения 1
Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
- 17.12.2017 13:56
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.