Question

30 Баллов! Решите задачи в паскале.

Answer 1

А1.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
uses
  System.Text.RegularExpressions;
begin
  var s:=ReadlnString('Введите текст:');
  Writeln('Количество "ма" равно ',Regex.Matches(s,'ма').Count)
end.

Тестовое решение:
Введите текст: Наша мама - математик и любитель макарон!
Количество "ма" равно 5

А2.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var n:int64;
  if TryStrToInt64(ReadlnString('Введите целое число:'),n)
  then Writeln('Правильный ввод')
  else Writeln('Вы ошиблись!')
end.

Тестовое решение:
Введите целое число: -32452245321
Правильный ввод