Найти ошибку в программе, program nastya; var n: - вопрос №26194718 от ancordkot 28.05.2022 10:34

Question

Информатика: Найти ошибку в программе, 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.

ancordkot · Answer

А компьютер не выделяет красненьким примерное место, где есть ошибка? ...

Найти ошибку в программе, 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.