//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
// 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 Первый и последний символы не совпадают Количество символов в строке нечетно Строка содержит слово "мама"
1,4
Объяснение:
Если правое число больше лового, то их разность будет отрицательной. Нужно сравнить числа
1011 < 1100
1111 > 1000
1000 > 111
1 < 101