Помогите найти ошибку в программе,

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.

Question

Коляша

10 января, 07:21

+2

Ответы (1)

Знаете ответ на вопрос?

Минай · Answer 1

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

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