Помогите найти ошибку в программе,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.
Помогите найти ошибку в программе,
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.
Гость
Ответ(ы) на вопрос:
Гостьа компьютер не выделяет красненьким примерное место, где есть ошибка?
Не нашли ответ?
Похожие вопросы