EgorKuleshov
29.12.2020 00:27

25
автор учения о бесконечности вселенной известен всем. несколько лет своей жизни он провёл в в одном замке. около этого замка есть одноименный мост. если цифры года начала строительства этого моста выписать в обратном порядке и взять такой год до нашей эры, то выяснится, что в этот год произошло солнечное затмение, описанное одним древним ученым в своём труде. в этом труде есть известный фрагмент, который описывает диалог, происходящий на острове. если сложить между собой градусы северной широты и градусы восточной долготы, в которых находится остров, то вы получите красивое число n. в россии есть регион с номером n, а в этом регионе есть n-ое озеро в списке всех озер этого региона, но оно не полностью находится в россии. какой процент площади этого озера принадлежит стране-соседу россии?
1) автор учения о бесконечности вселенной
2) название замка
3) цифры года начала строительства моста, выписанные в обратном порядке
4) имя древнего ученого
5) название острова, на котором происходил диалог
6) число, являющиеся градусами северной широты острова
7) число, являющиеся градусами восточной долготы острова
8) название региона в россии с номером n
9) название озера из списка с n-м номером
10) название страны соседа n-ого региона россии
11) процент площади этого озера принадлежащий стране-соседу россии​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
LeBleque
17.01.2021 15:29
{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.
0,0(0 оценок)
Ответ:
arpine1977
17.01.2021 15:29
{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота