Составить программу в Паскаль.Очень нужна ваша помощь

Question

Составить программу в Паскаль.Очень нужна ваша помощь

---

Answer 1

Ответ:

pascal

Объяснение:

const

 s: string[8] = '01234567';

var

 d, n: integer;

 o: string;

begin

 Write('Введите число: ');

 ReadLn(n);

 d := n;

 while d > 0 do

 begin

   o := s[d mod 8+1] + o;  

   d := d div 8;

 end;  

 WriteLn(n, '(10) = ', o,'(8)');

end.

---

Comments

Перепроверьте,пожалуйста

---

только что... все нормально работает

---

прям отсюда скопировал и запустил. все ок

---

Я тоже отсюда скопировала

---

Program2.pas(3) : Неожиданный символ ' '

---

тогда другой вариант

---

Вы исправите?

---

что-то текст не дает вставить. картинку прикрепил

---

Спасио

---

Спасибо