Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.