Begin
if n > 1 then
decTo5(n div 5);
write(n mod 5);
end;
var
n: integer;
begin
write('n = ');
readLn(n);
if (n > 0) then
decTo5(n)
else
writeLn('Error, n must > 0!');
writeLn;
end<span>.
Извини меня если не правильно. Вроде так.
</span>
Объяснение:
во вложениях.....
&, ^ – знаки у меня не ставятся, но в выражениях выполняют свои действия.
Что содержит пункт Мои документы в Моем компьютере?
Обычно это файлы самих этих документов, так же программы часто любят сохранять там свои настройки и результаты своей работы
ДГЖВБАЕ
должно получиться http://pic.kz/img.bmp