program DecToBinCount;
uses
SysUtils, StrUtils;
function DecToBin (m: Integer): string;
var
r: Integer;
s: string;
begin
while (m > 0) do Begin
r := m mod 2;
m := m div 2;
s := IntToStr (r) + s;
end;
Result := s;
end;
var
m, n, x, i, c: Integer;
s: string;
begin
Write ('Введите M, N, X: ');
ReadLn (m, n, x);
WriteLn;
c := 0;
for i := m to n do begin
s := DecToBin (i);
if RightStr (s, x) = StringOfChar ('0', x) then begin
WriteLn (s, ' '); // для проверки. после тестирования закомментарить
Inc (c);
end;
end;
WriteLn (c);
ReadLn;
end.
<?php
namespace Word;
/**
* Класс для работы со словами.
*
* @package default
* @author `Roman`
*/
interface WordInterface {
public function caseChange();
}
class Word implements WordInterface {
public function __construct($word) {
$this -> word = $word;
}
public function caseChange($charset = "utf-8") {
return mb_strtoupper(mb_substr($this -> word, 0, 1, $charset), $charset) . mb_substr($this -> word, 1, mb_strlen($this -> word, $charset) - 1, $charset);
}
}
//testing:
$myWord = "слово";
$Word = new Word($myWord);
$newWord = $Word -> caseChange();
echo $newWord;
