// PascalABC.Net 3.0, сборка 1064 var s:string; n:integer; begin Write('Введите строку: '); Readln(s); // a n:=Length(s); Writeln('Количество символов в строке равно ',n); // b Writeln(s[1],', ',s[2],', ',s[n]); // c Writeln(Ord(s[1]),', ',Ord(s[n])); // d if s[1]=s[n] then Writeln('Первый и последний символы совпадают') else Writeln('Первый и последний символы не совпадают'); // e if n mod 2 = 0 then Writeln('Количество символов в строке четно') else Writeln('Количество символов в строке нечетно'); // f if Pos('мама',s)>0 then Writeln('Строка содержит слово "мама"') else Writeln('Строка не содержит слово "мама"') end.
Тестовое решение: Введите строку: Тестовая строка со словом <мама> внутри Количество символов в строке равно 39 Т, е, и 210, 232 Первый и последний символы не совпадают Количество символов в строке нечетно Строка содержит слово "мама"
//PascalABC.Net 3.0, сборка 1064 var s:string; i,k:integer; begin Write('Введите натуральное число: '); Readln(s); k:=0; for i:=1 to Length(s) do if s[i]='0' then Inc(k); Writeln('Количество нулей в записи числа равно ',k) end.
Пример: Введите натуральное число: 13054000230 Количество нулей в записи числа равно 5
2. Современное решение
//PascalABC.Net 3.0, сборка 1064 begin var s:=ReadString('Введите натуральное число: '); Writeln('Количество нулей в запиcи числа равно ',s.Where(x->x='0').Count) end.
Пример: Введите натуральное число: 13054000230 Количество нулей в записи числа равно 5
var
s:string;
n:integer;
begin
Write('Введите строку: '); Readln(s);
// a
n:=Length(s);
Writeln('Количество символов в строке равно ',n);
// b
Writeln(s[1],', ',s[2],', ',s[n]);
// c
Writeln(Ord(s[1]),', ',Ord(s[n]));
// d
if s[1]=s[n] then Writeln('Первый и последний символы совпадают')
else Writeln('Первый и последний символы не совпадают');
// e
if n mod 2 = 0 then Writeln('Количество символов в строке четно')
else Writeln('Количество символов в строке нечетно');
// f
if Pos('мама',s)>0 then Writeln('Строка содержит слово "мама"')
else Writeln('Строка не содержит слово "мама"')
end.
Тестовое решение:
Введите строку: Тестовая строка со словом <мама> внутри
Количество символов в строке равно 39
Т, е, и
210, 232
Первый и последний символы не совпадают
Количество символов в строке нечетно
Строка содержит слово "мама"