Блок схема по сказке "Каша из топора" начало ( овал) ↓ наколоть дрова (прямоугольник) ↓ принести воду (прямоугольник) ↓ развести костёр (прямоугольник) ↓ взять горшок (прямоугольник) ↓ поставить горшок на огонь (прямоугольник) ↓ налить воду в горшок (прямоугольник) ↓ взять топор (прямоугольник) ↓ положить топор в горшок (прямоугольник) ↓ добавить гречку (прямоугольник) ↓ положить масло, соль (прямоугольник) ↓ изъять топор из горшка (прямоугольник) ↓ взять тарелку (прямоугольник) ↓ взять ложку (прямоугольник) ↓ положить ложкой кашу в тарелку (прямоугольник) ↓ конец (овал)
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
№1
begin var s:=ReadlnString; s:=s.RegexReplace('ма',''); Writeln('Длина=',s.Length,': ',s) end.
Пример Ведьма измазала маслом карман гнома Длина=25: Ведь иззала слом карн гно
№2
begin var s:=ReadlnString; Writeln('Количество букв "с" равно ',s.Where(t->t='с').Count) end.
Пример Ассистент профессора сидел за столом и что-то писал Количество букв "с" равно 8
№3
begin var s:=ReadlnString; var d:=s.Where(t->t='е').Count-s.Where(t->t='о').Count; if d>0 then Writeln('Буква "е" встречается чаще буквы "о"') else if d<0 then Writeln('Буква "о" встречается чаще буквы "е"') else Writeln('Буквы "е" и "о" встречаются динаковое число раз') end.
Пример Мороз и солнце; день чудесный! Еще ты дремлешь, друг прелестный. Буква "е" встречается чаще буквы "о"
