Перевести число 127 в двоичную, восьмеричную и шестнадцатеричную систему исчисления. с решением.

Question

Информатика: Перевести число 127 в двоичную, восьмеричную и шестнадцатеричную систему исчисления. с решением.

Holmes9 · Accepted Answer

// PascalABC.NET 3.2, сборка 1478 от 10.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString('Введите текст, завершив его точкой:');
var p:=Pos('.',s);
if (p>0) and (p<s.Length) then s:=s[:p+1];
Writeln('Количество предложений равно ',s.ToWords('!').Count)
end.

Пример
Введите текст, завершив его точкой: Тест 1!тестовое №2!Тест3.Тест4!
Количество предложений равно 3

Если считать, что текст гарантированно завершается точкой, то можно упростить код программы до одного оператора:

begin
Writeln('Количество предложений равно ',
ReadlnString('Введите текст, завершив его точкой:').ToWords('!').Count)
end.

MOGZ ответил