Размещено 5 лет назад по предмету
Информатика
от dememchukova
Помогите найти ошибку в программе,
Program nastya; var n: integer; Procedure Perewod8(n:integer); begin If n>1 then perewod8(n div 8); write (n mod 8); end; begin write ('введите натуральное число N='); read(N); Perewod8(n); end.