// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var age:=ReadInteger('Введите возраст:'); var gender:=ReadInteger('Введите пол (1-М, 2-Ж):'); if gender=1 then case age of 0..13:Writeln('Мальчик'); 14..20:Writeln('Юноша'); 21..70:Writeln('Мужчина'); else Writeln('Старец') end else case age of 0..13:Writeln('Девочка'); 14..20:Writeln('Девушка'); 21..70:Writeln('Женщина'); else Writeln('Старушка') end end.
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Текст:');
var c:=ReadlnChar('Буква:');
Writeln('Буква встречается ',s.Where(p->p=c).Count,' раз(а)')
end.
Пример
Текст: а роза упала на лапу азора
Буква: а
Буква встречается 8 раз(а)
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Текст:');
var m:=s.MatchValues('(\w)\1{1}').Distinct;
foreach var cc in m do s:=s.Replace(cc,cc[1]);
s.Println
end.
Пример
Текст: стеклянный оловянный длинношеее искусство
стекляный оловяный длиношее искуство