zebra60
02.03.2021 03:46

Как добавить в документ на структурные списки

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
П6о6л6я
26.09.2020 18:23
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Writeln('Количество слов в строке равно ',s.ToWords.Count);
  Writeln('количество цифр в строке равно ',
      s.Where(c->c in ['0'..'9']).Count)
end.

Пример
В России День Победы празднуется 9 мая начиная от 1945 года
Количество слов в строке равно 11
количество цифр в строке равно 5

2. Текстовый файл может содержать столько текстовых строк, сколько в классе учеников. Каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.
0,0(0 оценок)
Ответ:
olgamorozkina19
14.06.2021 02:35
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  WriteAllText('MyFile.txt',SeqRandom(n,-99,99).JoinIntoString);
  var (mn,mx):=(MaxInt,-MaxInt);
  foreach var line in ReadLines('MyFile.txt') do begin
    var a:=line.ToIntegers;
    (mn,mx):=(Min(a.Min,mn),Max(a.Max,mx))
    end;
  Writeln('Cумма min+max = ',mn,'+',mx,' = ',mn+mx);
  ReadAllText('MyFile.txt').Println // контрольный вывод файла
end.

Пример
n= 20
Cумма min+max = -99+71 = -28
62 -72 39 -93 -99 -46 -77 71 -12 13 -89 18 -17 19 -35 -62 30 17 -74 37
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота