Yuliya Aleksandr282
?>

Паскаль.вводится ряд чисел, неизвестное кол-во, но конец ряда всегда ноль; найти количество чисел кратных пяти и больше пяти (одновременно)

Информатика

Ответы

olkay
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0).Where(t->(t>5) and (t mod 5=0)).Count.Println
end.

Пример
13 -10 8 5 24 35 52 40 20 18 0
3
serov555zaq5

1.в программе а: первый цикл for заполняет массив array, случайными числами из указанного диапазона, в цикле while происходит поиск пары чисел по условию начиная с 3го элемента. Если находят выводят, что такая пара есть, в противном случае что такой пары нет.

в программе б:

Вводтся число n, дальше будет использоваться для поиска, дальше как и в программе а, заполняем массив случайными числами в цикле for, в repeat, мы движемся по массив, пока не встретим наше значение n, если встретили, выводим: такое число есть в массиве, в противном случае, такого числа нет.В repeat until реализован линейный алгоритм поиска.

Буду благодарен за отметку "Лучший ответ"

все вопросы в коментарии

4.ТОЛЬКО БОГ

garunkhachatryan

ответ:Поле базы данных - это столбец таблицы, содержащий значения определенного свойства.

Строки таблицы являются записями об объекте; эти записи разбиты на поля столбцами таблицы, поэтому каждая запись представляет собой набор значений, содержащихся в полях.

Запись базы данных - это строка таблицы, содержащая набор значений свойств, размещенный в полях базы данных.

Каждая таблица должна содержать, по крайней мере, одно ключевое поле, содержимое которого уникально для каждой записи в этой таблице. Ключевое поле позволяет однозначно идентифицировать каждую запись в таблице.

Ключевое поле - это поле, значение которого од нозначно определяет запись в таблице

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль.вводится ряд чисел, неизвестное кол-во, но конец ряда всегда ноль; найти количество чисел кратных пяти и больше пяти (одновременно)
Ваше имя (никнейм)*
Email*
Комментарий*