<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var s:=n.ToString;
var d:=s[s.Length-1];
s.Where(c->c>d).Count.Println
end.
<u>Пример</u>
15334
2
Ответ:
Procedure dec2oct(n: longint); { перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i: integer; begin s : = ''; while n > 0 do begin s : = alpha[(n mod 8) + 1] + s; n : = n div 8 end; for i: =length(s) to 9 do s: ='0'+s; write(s) end; { использование } var x: longint; begin write('введите десятичное число: '); read(x); write('в восьмеричной системе счисления: '); dec2oct(x); writeln end. тестовое решение: введите десятичное число: 1234567 в восьмеричной системе счисления: 0004553207
Объяснение:
Раньше люди жили без телевизоров телефонов отчитали из книги когда нечего было делать этим развивались.
160*30=4800 символов
Ответ: ученик получит 4800 символов
Где числа и к чему строить блок-схему ааааааа??!!??!!!?!