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

Pascal. Написать такую программу:

5-9 класс

На вход получает 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

Как следует поступить дальше?

Pavelvalkov94 30 апр. 2014 г., 1:40:03 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Nastasiya444
30 апр. 2014 г., 3:49:26 (9 лет назад)

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.

+ 0 -
Dawa2002
30 апр. 2014 г., 6:40:52 (9 лет назад)

Комментарий удален

+ 0 -
Vafinsh
30 апр. 2014 г., 9:08:56 (9 лет назад)

Не трудно же, опыта лишь мало.

+ 0 -
Nanoid
30 апр. 2014 г., 12:06:53 (9 лет назад)

Комментарий удален

+ 0 -
AllaRucu
30 апр. 2014 г., 14:25:49 (9 лет назад)

Давайте-таки по делу будем.

+ 0 -
мпмпмпмпмпмпмпмп
30 апр. 2014 г., 14:58:09 (9 лет назад)

Комментарий удален

Ответить

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

Помогите по поскалю, ПОЖАЛУЙСТА!11

Дана площадь круга S. Найти длину окружности, учитывая что L=2*pi*R, S=pi*R

Определите, каким цветам из набора: красный, зеленый, синий, белый, черный, соответствуют следующие десятичные

коды в системе RGB. Ответ дайте по каждому пункту подробно.

кто решит первым сделаю его решение лучшим

Дан текст, включающий русские буквы, английские буквы и цифры (имеются как прописные так и строчные буквы). Подсчитать, чего в тексте больше - русских букв, английских букв или цифр. Общее количество символов в тексте не больше 255. Если наибольшая частота присуща более чем одной группе символов, вывести соответствующее сообщение.

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

Помогите,пожалуйста,написать программу по информатике.Вот такое условие:

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.

Помогите пожалуйста написать 2 программы

1)Написать программу которая меняет местами числа a и b(линейная и оператор присваивания)
2)Программа проверки существования треугольника по его 3 сторонам
Напишите пожалуйста***

ОЧЕНЬ СРОЧНО

Привет, мне нужна помощь с заданием по информатике. С таблицей Pascal.

Написать программу для нахождения площади кольца, внешний радиус которого равен R1, а внутренний R2, (R1>R2). Протестировали программу для R1=5.6 , R2=3.8 . Проверить ответ на калькуляторе



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