М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Alex96xelA
Alex96xelA
22.08.2020 03:16 •  Информатика

Найдите структуру ветвей в стихах известных поэтов

👇
Ответ:
Meow100
Meow100
22.08.2020

Константин Симонов
Если родилась красивой,
Значит, будешь век счастливой.

Если будешь гордой мужем —
Скажут: потому что нужен.
Как других, с ним разлучит могила —
Всем простят, тебя возьмут в немилость.
Позабудешь — скажут: не любила,
Не забудешь — скажут: притворилась.

Владаимр Высоцкий
Если друг оказался вдруг
И не друг, и не враг, а - так,
Если сразу не разберешь,
Плох он или хорош,-
Парня в горы тяни - рискни!
Не бросай одного его,
Пусть он в связке в одной с тобой -
Там поймешь, кто такой.

Если парень в горах - не ах,
Если сразу раскис и - вниз,
Шаг ступил на ледник и - сник,
Оступился - и в крик,-
Значит, рядом с тобой - чужой,
Ты его не брани - гони:
Вверх таких не берут, и тут
Про таких не поют.

Если ж он не скулил, не ныл,
Пусть он хмур был и зол, но - шел,
А когда ты упал со скал,
Он стонал, но - держал,
Если шел за тобой, как в бой,
На вершине стоял хмельной,-
Значит, как на себя самого,
Положись на него.

4,4(75 оценок)
Открыть все ответы
Ответ:
nataalferova8
nataalferova8
22.08.2020
1)
var a, b: array [1..10] of integer; i, sum: integer;
begin
     sum := 0;
     for i := 1 to 10 do
         b[i] := 0;
     for i := 1 to 10 do
     begin
         read(a[i]);
         if a[i] < 0 then
         begin
              sum := sum + 1;
              b[i] := i;
         end;
     end;
     writeln('Amount of negative numbers: ', sum);
     for i := 1 to 10 do
         if b[i] <> 0 then write(b[i], ' ');
end.

2)
var a: array [1..10] of integer; i: integer; flag: boolean;
begin
     flag := false;
     randomize;
     for i := 1 to 10 do
     begin
         a[i] := random(10);
         if a[i] = 5
         then
             flag := true;
     end;
     for i := 1 to 10 do
     write(a[i], ' ');
     if flag
     then
         writeln('YES')
     else
         writeln('NO');
end.

3)
var a: array [1..10] of integer; i, ind, odd: integer;
begin
     randomize;
     ind := 0;
     for i := 1 to 10 do
     begin
         a[i] := random(10);
         if a[i] mod 2 <> 0
         then
         begin
              ind := i;
              odd := a[i];
         end;
     end;
     for i := 1 to 10 do
     write(a[i], ' ');
     if ind <> 0
     then
         writeln(a[ind], ' ', ind)
     else
         writeln('Array has no odd elements');
end.

4)
var a: array [1..10] of integer; i: integer;
begin
     writeln;
     randomize;
     for i := 1 to 10 do
     begin
         a[i] := random(20);
         write(a[i], ' ');
     end;
     writeln;
     for i := 1 to 10 do
         if (a[i] < 15) and(a[i] > 5)
         then
             write(a[i], ' ');
end.
4,8(93 оценок)
Ответ:
kartew
kartew
22.08.2020
- для раздачи единичного релиза исполнителя - в любом порядке: год издания, название релиза и название исполнителя, через любой разделитель:
примеры правильных вариантов: "Артист - Год - Альбом", "Артист-Альбом - (Год)";
примеры неправильных вариантов: "Артист - Альбом", "ГодАльбом", "ГодАльбом(Артист)".
- для релизов в составе дискографии (коллекции) - в любом порядке год и название релиза, через любой разделитель:
примеры правильных вариантов: "Год - Альбом", "Альбом (Год)";
примеры неправильных вариантов: "ГодАльбом", "Альбом";
при этом релизы исполнителя должны находиться в папке, содержащей в названии имя исполнителя.
3.1.3 Название файла трека должно содержать номер трека по порядку на диске и название трека, через любой разделитель и только в этом порядке:
примеры правильных вариантов: "01 - Название","01.Название""01 Название";
примеры неправильных вариантов: "Название - 01", "01Название", "Название";
4,4(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ