uses crt;
var a:array[1..10] of integer;
i,s:integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do begin
a[i]:=random(10-1+1)+1;
write(a[i]:4);
end;
s:=1;
for i:=1 to 10 do begin
s:=s*a[i];
end;
writeln;
writeln('Произведение элементов: ',s);
end.

В массиве 10 элементов, которые заданы случайно в пределах от 1 до 10.

0 0

2 года назад

Переведите числа в десятичную систему счисления.а) 1110001112;б) 1000110112;в) 1001100101,10012;г) 1001001,0112;

Колокола ЛИТЭКС [67]

а) 111000111 (2) = 455 (10)
б) 100011011 (2) = 283 (10)
в) 1001100101 (2) = 613 (10) и 1001 (2) = 9 (10)
г) 1001001 (2) = 73 (10) и 11 (2) = 3 (10)
В двоичной системе счисления дробного числа быть не может

0 0

4 года назад

Составить алгоритм поиска четырёхзначного числа, начинающегося с единицы и такого, что если переставить эту цифру в конец записи

Сергей ГГ [2]

var x,y,z:Integer;

begin

for x:=1 to 9 do

for y:=0 to 9 do

for z:=0 to 9 do

if 3*(1000+x*100+y*10+z)=x*1000+y*100+z*10+1 then Writeln(1,x,y,z);

Readln;

end.

0 0

4 года назад

Сколько цветов в палитре,если на кодирование одного пикселя требуеться 7 битов​

Сколько цветов в палитре,если на кодирование одного пикселя требуеться 7 битов