сервис вопросов и ответов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
Как следует поступить дальше?
Krylatova18
14 марта 2017 г., 20:03:17 (7 лет назад)
Sns21062001
14 марта 2017 г., 22:41:28 (7 лет назад)
Не понял, зачем тебе переменная 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.
Ответить
Другие вопросы из категории
Сегодня в индийском городке
Старый Гоа отмечают День святого Франциска Ксавьера. Святой Франциск Ксавьер –
миссионер, член ордена иезуитов, считается величайшим католическим миссионером
Нового времени.
Мощи святого Франциска Ксавьера
– духовного покровителя индийских христиан – покоятся в Старом Гоа в известном
католическом храме – Базилике Бом Иисус. Со дня постройки храма в 1605 году раз
в десять лет мощи святого выставляются для всеобщего обозрения.
Индийский крестьянин Вирмарам –
человек очень набожный, он не упускал случая коснуться святых мощей. Зная годы
его жизни, определите, сколько раз он мог коснуться святых мощей (считается,
что в год своего рождения он не мог этого сделать, а в год смерти – мог).
Входные данные
Вводятся два натуральных числа
– год рождения и год смерти. Числа разделены пробелом.
Выходные данные
Программа должна определить,
сколько раз крестьянин мог коснуться святых мощей, и вывести ответ - одно
число.
Примеры Входной
файл. Input.txt
СРОЧНО
С помощью Паскаля:
1.В магазине продается мастика в ящиках по 15 кг,17 кг,21 кг. Как купить ровно 185 кг мастики, не вскрывая ящики?Сколькими способами можно это сделать?
Опишите, каким образом выполняется функция СЦЕПИТЬ.
В программе MS Excel.
Читайте также
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
Как следует поступить дальше?
Паскаль Нужно было написать такую программу: 1) Площадь треугольника корень кв. из p(p-a)(p-b)(p-c), где p=a+b+c/2
Написал программу следующим образом:
Помогите,пожалуйста,написать программу по информатике.Вот такое условие:
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Помогите пожалуйста написать 2 программы
1)Написать программу которая меняет местами числа a и b(линейная и оператор присваивания)
2)Программа проверки существования треугольника по его 3 сторонам
Напишите пожалуйста***
Вы находитесь на странице вопроса "Pascal. Написать такую программу:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.