Задание №1. Наибольшее четырехзначное восьмеричное число 7777₈
двоичная запись - 111 111 111 111 111₂
искомое число - 111 111 111 111 000₂ = 7777 - 7 = 7770₈
Ответ: 7770
Задание №2. Аналогично первому: Наибольшее четырехзначное восьмеричное число 7777₈
двоичная запись - 111 111 111 111 111₂
искомое число - 111 111 111 110 000₂ = 7777 - 17 = 77760₈
Ответ: 7760
Program example;
const
A=30;
Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный
var
flag_max : integer;
flag_min : integer;
i. jmin,jmax : integer; //счетчики
Randomize;
array max[A];
//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;
//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max
jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;
//минимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;
//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;
//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);
Блок-схема <span>произведения чисел</span>
Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.
