Procedure Dec2Oct(n:longint); { Перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i:integer; begin s := ''; while n > 0 do begin s := alpha[(n mod 8) + 1] + s; n := n div 8 end; for i:=Length(s) to 9 do s:='0'+s; Write(s) end;
{ Использование } var x:longint; begin Write('Введите десятичное число: '); Read(x); Write('В восьмеричной системе счисления: '); Dec2Oct(x); Writeln end.
Тестовое решение: Введите десятичное число: 1234567 В восьмеричной системе счисления: 0004553207
Разгадайте кроссворд:1.) Другое название прикладной программы. ( 10 букв ) 2.)Изображение на экране монитора готового к работе компьютера ( два слова) ( 7 букв в первом слове и 4 буквы во втором слове ) 3.) Единица информации , равная восьми битам. ( 4 буквы) 4.) Группа файлов, имеющая имя; контейнер для файлов. ( 6 букв) 5.) Прямоугольная область, занимаемая на рабочем столе работающей программой. ( 4 буквы) 6.) Файл содержащий данные ( рисунки, тексты). ( 8 букв) 7.) обязательная часть програмного обеспечения - ... система. ( 12 букв) 8.) самая маленькая единица измерения информации. ( 3 буквы) 9.) информация хранящаяся в долговременной памяти как единое целое и обозначенная именем. ( 4 буквы)1. Приложение 2. Добро 3. Байт 4. Каталог, папка. директория, фолдер 5. Окно 6. Документ 7. Операционная система 8. бит 9. Файл
var
a : array [1..100] of real;
n, i : integer;
flag : boolean;
sum : real;
begin
read (n);
for i := 1 to n do read (a[i]);
flag := false; sum := 0;
for i := n downto 1 do
if flag then sum := sum + a[i]
else if a[i] > 0 then flag := true;
writeln (sum);
end.