Ответ(ы) на вопрос:
Гость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.
ГостьА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
Правильный ввод
Не нашли ответ?
Похожие вопросы