Даны целые числа записанные в некоторых системах счисления (СС). СС с основанием: 16 . Числа в этой СС: 125 , 129 , 122 , 12D .
СС с основанием: 4 . Числа в этой СС: 10131 , 10203 .
СС с основанием: 8 . Числа в этой СС: 441 , 425 .
СС с основанием: 5 . Это заданное число: 2124 .
Сколько чисел МЕНЬШЕ заданного числа? В ответе указать только
количество таких чисел. Не забывайте показывать ход решения для всех
заданий.
1. Традиционное решение.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
var
s:string;
i,k:integer;
begin
Write('Введите строку: '); Readln(s);
k:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(k);
Writeln('Количество слов равно ',k+1)
end.
Результат выполнения программы:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6
2. Решение срeдствами PascalABC.Net 3.1
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var s:=ReadlnString('Введите строку:');
Writeln('Количество слов равно ',s.ToWords.Count)
end.
Результат выполнения программы:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6