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

1)дана строка символов среди которых есть двоеточие (: )определите сколько символов ему предшествует. 2)дана строка слов в. сформулируйте величину а, состоящию из первых букв слов входящих в строку в. 3)дана строка состояща я из нескольких слов .найдите наибольшую длину слова. 4()в записке слова зашифрованы каждое из них записано на оборот ,расшифруйте сообщение .

👇
Ответ:
qwerty2021
qwerty2021
09.08.2020
PascalABC.NET 3.2:
1.
begin
   write(ReadString.indexof(':'))
end.
Пример ввода: 1234:56
Пример вывода: 4

2.
begin
   write(readString.ToWords.Select(x->x[1]).JoinIntoString)
end.
Пример ввода: Как любила язвить королева, собаки апплодировали
Пример вывода: Клякса
3.
begin
   write(readString.ToWords.Select(s->Length(s)).Max)
end.
Пример ввода: Не хочу учиться хочу жениться
Пример вывода: 8
4.
Если там нет знаков препинания:
begin
   write(readString.ToWords.Select(s->ReverseString(s)).JoinIntoString(' '))
end.
Если там есть знаки препинания, которые надо оставить на месте, то настолько же короткого решения мне не придумалось, можно так: 
begin
  var str := readString + ' ';
  var m := '';
  for var i := 1 to str.Length do
    if str[i].IsLetter then
      m += str[i]
    else
    begin
      write(ReverseString(m), str[i]);
      m := '';
    end;
end.
Пример ввода: амар алым умам
Пример вывода: рама мыла маму
4,6(30 оценок)
Открыть все ответы
Ответ:
Irinazpopo
Irinazpopo
09.08.2020

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение:

4,4(43 оценок)
Ответ:
buschckovaanas
buschckovaanas
09.08.2020

2. var

r: integer;

result: string;

begin

write('вводите число от 1 до 12: ');

readln(r);

case r of

1: Result := 'январь';

2: Result := 'февраль';

3: Result := 'март';

4: Result := 'апрель';

5: Result := 'май';

6: Result := 'июнь';

7: Result := 'июль';

8: Result := 'август';

9: Result := 'сентябрь';

10: Result := 'октябрь';

11: Result := 'ноябрь ';

12: Result := 'декабрь';

end;

writeln(' месяц : ',result);

end.

Объяснение:

я написал ответ только к 2 задаче

постарайся сам сделать 1 ую задачку.

4,6(57 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ