Программа написана на языке программирования Pascal
program z1; var N,p,n1,i:integer; begin writeln('Введите число N'); readln(N); p:=1; for i:=1 to n do if N>0 then begin n1:=N mod 10 ; p:=p*n1; N:=N div 10; end; write('Произведение=',p); end.
А1(2) Назовите свойства объекта операционной системы Windows «Рабочий стол» 1. Фон;
А2(2) Найдите общие имена объектов: А. Компьютер, Б. Астрахань, В. Стол, Г. Елена 2. АВ;
А3(2) Укажите отношение для пары «струйный принтер и принтер»: 3. является разновидностью;
А4(2) Укажите подсистемы, входящие в систему «Программное обеспечение персонального компьютера»: А. устройства ввода информации, Б. устройства хранения информации, В. операционная система, Г. прикладные программы 3. ВГ;
Для начала напишем максимальное трёхзначное число в восьмеричной системе. Так как в этой системе используются цифры от 0 до 7, то максимальным числом из трёх цифр будет 777₈
Теперь переведём это число в десятичную систему счисления. Для перевода умножаем содержимое каждого разряда на его "вес" (для первого разряда- 8 в нулевой степени, для второго- 8 в первой степени, итд). Получившиеся произведения складываем: 777₈ = 7*8^2 + 7*8^1 + 7*8^0 = 7*64 + 7*8 + 7*1 = 448 + 56 + 7 = 511₁₀
ответ: десятичное число 511.
Сам перевод можно было упростить, если переводить не 777₈ , а число на единицу большее, то есть 777₈ + 1 = 1000₈ Перевод этого числа проще: 1000₈ = 8^3 = 512₁₀ Осталось только отнять единицу, которую мы ранее добавили, и получим 511₁₀
program z1;
var N,p,n1,i:integer;
begin
writeln('Введите число N');
readln(N);
p:=1;
for i:=1 to n do
if N>0
then begin n1:=N mod 10 ; p:=p*n1; N:=N div 10; end;
write('Произведение=',p);
end.