1. Написать программку, которая подсчитывает количество частей, четных и заканчивающихся на
1. Написать программку, которая подсчитывает количество частей, четных и оканчивающихся на 6, в массиве целых чисел. Количество элементов массива одинаково N. Массив заполнить случайными числами в промежутке [20,80). Если таких чисел нет, напечатать Нет.
2. Написать программку, которая подсчитывает количество пар частей в массиве, в которых каждый элемент равен второму в паре. В массиве 10 элементов, массив заполняется с поддержкою случайных чисел из интервала (0, 100).
1 ответ
Руслан Пильсун
1. Если число заканчивается на 6, то оно четное сообразно признаку делимости на 2, потому проверка на четность не нужна.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),20,80); a.Println;
var k:=a.Where(t-gt;t mod 10=6).Count;
if kgt;0 then Writeln(k)
else Writeln('Нет')
end.
Пример
n= 15
47 53 73 26 75 64 70 32 27 80 29 53 20 62 66
2
2. Достаточно много раз нужно запускать задачу, чтобы суметь получить случайную последовательность с парой схожих примыкающих элементов...
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(10,0,100); a.Println;
var k:=a.Pairwise.Where(t-gt;t[0]=t[1]).Count;
if kgt;0 then Writeln(k)
else Writeln('Нет')
end.
Пример
60 41 87 87 95 75 72 32 8 52
1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),20,80); a.Println;
var k:=a.Where(t-gt;t mod 10=6).Count;
if kgt;0 then Writeln(k)
else Writeln('Нет')
end.
Пример
n= 15
47 53 73 26 75 64 70 32 27 80 29 53 20 62 66
2
2. Достаточно много раз нужно запускать задачу, чтобы суметь получить случайную последовательность с парой схожих примыкающих элементов...
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(10,0,100); a.Println;
var k:=a.Pairwise.Where(t-gt;t[0]=t[1]).Count;
if kgt;0 then Writeln(k)
else Writeln('Нет')
end.
Пример
60 41 87 87 95 75 72 32 8 52
1
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов