Напишите программу, выбирающую ничем не примечательные определения. за спам подаю жалобу , очень нужно :(

Дом стоял на небольшой возвышенности на самом краю поселка. Он был ничем не примечателен – построенный лет тридцать назад, кирпичный, маленький, невзрачный, с четырьмя окнами на фасаде. Словом, один из тех, от которых тут же хочется отвести взгляд. Единственным человеком, полюбившим это чахлое строение, был Артур Дент, да и то лишь потому, что жил в нем.

Формат ввода
Вводится строка слов, записанных через +, окруженный пробелами, затем вводится число.

Формат вывода
Через запятую и пробел большими буквами выведите слова с длиной, кратной числу. Выводить в том же порядке, что и в строке.

Пример 1

Ввод
The + house + stood + on + a + small + hill + at + the + very + edge + of + the + village
4
Вывод
HILL, VERY, EDGE

Пример 2
Ввод
brick + small + nondescript + with + four + windows + on + the + facade
2
Вывод
WITH, FOUR, ON, FACADE

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

superparty

06.03.2023 00:43

1. дан простейший поток событий, интенсивность которого составляет 15 событий в минуту. найти: 1.1. среднюю длину отрезка времени между последовательными событиями. 1.2. вероятность...

nastyazhovnirenko

15.09.2021 09:09

Варианты ответа в первом: aa,b,f во втором: b-b,b*b,2b+b в 3 нужно написать...

RADIUM24

02.02.2020 19:59

Программа запрашивает два числа a, b, c.после чего выводит все числа от a до b с шагом спри этом контролирует чтобы a b, c (b - a)python...

тса2

16.03.2021 03:04

Решить (массивы) найти сумму, произведение и количество положительных чисел; сумму, произведение и количество отрицательных чисел и количество нулевых чисел. в одной программе 70...

KristiDever

20.01.2022 07:40

Проверьте программу вычисления след. функций знак a обозначает для любых [tex]z=costgy+t^3 , t=\frac{b^2+a}{cosx} , y=t-ln |a|: \\a-x,a,b[/tex]var x,a,b,t,y,z: real; beginwriteln(...

Alinahe2001

10.10.2022 18:33

Решить уравнение x2-cosx-1=0 в exel...

stasamaca

10.10.2022 18:33

Вычислите в двоичной системе счисления 11100+101 и определите результат в десятичной системе: а)29 б)17 в)33 г)39...

makssabarov

16.12.2020 05:57

Какими командами можно дополнить таблицу функций pugame.display?»...

Bonga1337

09.03.2020 13:34

Напишите, , программу в delphi.дано натуральное число n. вычислить [tex]s=\frac{1}{sin1} +\frac{1}{sin1+sin2} ++\frac{1}{sin1++sinn}[/tex] ....

Памагити1111111

18.01.2021 12:02

Написать текст по кластеру интерфейс ....

Ответ:

danilasavap0a3nj

19.09.2020 23:24

Const
n = 11;

var
x: array[1..n] of integer;
i, k, d, s: integer;

begin
Randomize;
Writeln('Элементы массива');
k := 0; s := 0;
for i := 1 to n do
begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
end;
Writeln;
Writeln('Результирующий массив');
for i := 1 to n do Write(x[i]:3);
Writeln;
Writeln('Количество единиц на четных местах равно ', k);
Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
-3 0 -5 1 5 1 -3 -4 5 -3 -2
Результирующий массив
9 0 25 1 25 1 9 -4 25 -3 4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13

0,0(0 оценок)

Ответ:

anastasia106444

21.02.2021 13:53

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->t mod 10=6).Count;
if k>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->t[0]=t[1]).Count;
if k>0 then Writeln(k)
else Writeln('Нет')
end.

Пример
60 41 87 87 95 75 72 32 8 52
1

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку