//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию const n = 200;
var primes: array of integer;
begin primes := ArrGen(n, i -> i);
for var i := 2 to round(sqrt(n)) do begin if not (primes.Contains(i)) then continue; var e := SeqWhile(i*i, x -> x + i, x -> x <= n); primes := primes.Except(e).ToArray; end;
writeln('Простые числа < ', n, ':'); writeln(primes); writeln; writeln('Время вычисления: ', Milliseconds / 1000); end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите строку:'); var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count; var m:=s.Length-n; if m>n then Writeln('В строке букв меньше иных символов') else if m<n then Writeln('В строке букв больше иных символов') else Writeln('В строке поровну букв и иных символов') end.
Примеры Введите строку: Это 12+32/16t/7+3.1415 тест В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест В строке букв больше иных символов
18
Объяснение:
(доп.символы)