экрана вводится строка.
Посчитайте количество МАЛЕНЬКИХ латинских букв в ней. Выведите его на экран.
Постройте НОВУЮ строку, из которой удалены все БОЛЬШИЕ латинские буквы.
Выведите количество удалённых символов.
Замечание: массивы использовать нельзя.
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
Writeln('Количество слов в строке равно ',s.ToWords.Count);
Writeln('количество цифр в строке равно ',
s.Where(c->c in ['0'..'9']).Count)
end.
Пример
В России День Победы празднуется 9 мая начиная от 1945 года
Количество слов в строке равно 11
количество цифр в строке равно 5
2. Текстовый файл может содержать столько текстовых строк, сколько в классе учеников. Каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.
Внимание! Если программа не работает, обновите версию!
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