Class Program
{
<span>static void Main(<span>string[] args</span>)
</span><span>{
int A;
Console.WriteLine ("Vvedite A");
Console.ReadLine (A);
if (A>0)
{
A=A+1;
}
else
{
A=A+0;
}
Console.WriteLine (A);
}</span>
Ответ:
РОПОР и ТОПОР
Объяснение:
Представим что имеем дело с 4-ичной системой счисления { 0 - О, 1 - П, 2 - Р, 3 - Т }. В таком случае вышенаписанный ряд можно представить в такой виде:
1. ООООО (00000) = 0 в 10ичной СС
2. ООООП (00001) = 1 в 10ичной СС
3. ООООР (00002) = 2 в 10ичной СС
4. ООООТ (00003) = 3 в 10ичной СС
5. ОООПО (00010) = 4 в 10ичной СС
...
Исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.
1.
530 / 4 = 132 (2 остаток)
132 / 4 = 33 (0 остаток)
33 / 4 = 8 (1 остаток)
8 / 4 = 2 (0 остаток)
530(10) = 20102 (4)
Замена: РОПОР
2.
786 / 4 = 196 (2 остаток)
196 / 4 = 49 (0 остаток)
49 / 4 = 12 (1 остаток)
12 / 4 = 3 (0 остаток)
786(10) = 30102(4)
Замена: ТОПОР
Деление на 0 или тому подобное в формуле. А может быть узкая строка , результат не помещается в ячейку
===== PascalABC.NET =====
begin
var n: int64;
Print('Введите натуральное число:');
Read(n);
var a := ArrFill(10, False);
while n > 0 do
begin
a[n mod 10] := True;
n := n div 10
end;
Print('В числе отсутствуют цифры');
for var i := 0 to 9 do
if not a[i] then
Print(i);
end.
var
b: <em>integer</em>;
begin
write(<em>'Введите целое число в переменную B.'</em>, #13, <em>'B := '</em>);
readln(b);
writeln(<em>'B = '</em>, b);
<span>end.</span>