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

Question

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

---

Comments

Задачи только из уровня А

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
Правильный ввод

Answer 2

1.
Var S : String;
   i,k : Byte;
Begin
  Readln(S);
  k:=0;
  For i:=1 to Length(S)-1 do
    If s[i]+s[i+1]='ма' then Inc(k);
  Writeln('"ма" встречается ',k,' раз');
end.

2.
Var S : String;
    n,k : Integer;
Begin
  Readln(S);
  Val(S,n,k);
  Writeln(k=0); {TRUE - правильная запись, FALSE - не правильная запись}
end.

Comments

что означает Val?

---

Стандартная функция Паскаля.

---

procedure Val(s: string; var value: integer; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0

---

Очепятался, не функция, а конечно же процедура.