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

До ть твір "рубаї" написати твір роздум до 3 стовпчика ​

👇
Ответ:
mmmmmvbbbbb
mmmmmvbbbbb
17.01.2022
Рубаи був сильним рубаи
4,5(11 оценок)
Открыть все ответы
Ответ:
19792001
19792001
17.01.2022

Вселенная – это трудно постижимый человеческим разумом безграничный мир, который кажется нереальным и нематериальным. На самом деле нас окружает материя, безграничная в пространстве и во времени принимать различные формы.

Гала́ктика — гравитационно-связанная система из звёзд, звёздных скоплений, межзвёздного газа и пыли, тёмной материи, планет. Все объекты в составе галактики участвуют в движении относительно общего центра масс.

Со́лнечная систе́ма — планетная система, включает в себя центральную звезду — Солнце — и все естественные космические объекты, вращающиеся вокруг Солнца. Она сформировалась путём гравитационного сжатия газопылевого облака

Плане́та — небесное тело, вращающееся по орбите вокруг звезды или её остатков, достаточно массивное, чтобы стать округлым под действием собственной гравитации, но недостаточно массивное для начала термоядерной реакции

Планета земля - это планета на которой мы живём

4,7(92 оценок)
Ответ:
asya13051
asya13051
17.01.2022
program string_2;
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
   Writeln ('Введите строку:'); Readln(s);
   i:=1; ns:=1; otv:=''; s:=s+' ';
   while i<=Length(s) do
   begin
      while (i<=Length(s)) and (s[i]<>' ') do i:=i+1; {ищем очередной пробел}
      ks:=i; slovo:=Copy(s, ns, ks-ns); {выделяем слово}
      m:=Length(slovo) div 2; {половина длины слова}
      if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
         {если слово имеет четную длину}
          then otv:= otv+slovo+ ','; {добавляем слово к ответу}
      while (i<=Length(s)) and (s[i]=' ') do i:=i+1; {пропускаем пробелы}
      ns:=i; {начало следующего слова}
   end;
   Delete(otv, Length(otv), 1); {удаляем лишнюю запятую в конце}
   Writeln(otv);
   Readln
end.
4,8(47 оценок)
Это интересно:
Новые ответы от MOGZ: Другие предметы
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ