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. Текстовый файл может содержать столько текстовых строк, сколько в классе учеников. Каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.
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.
many tools
deleting programmes
and lot of things
check on wiki lol
does it rofl?)