Ответ:
12
Объяснение:
Элементарная арифметика 36/6 = 6 , а 6+6 = 12
А) 00000110
Б) 11111010 (не точно)
В) 10001000
Const
t = 10;// количество чисел в массиве
var
a: array[1..t] of integer;
i, min, k, tmp, klv, z: integer;
b: boolean;
begin
for i := 1 to t do
a[i] := random(10) + 1; //Рандом чисел от 1 до 10
writeln('Массив:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
for i := 1 to t - 1 do
for k := i + 1 to t do
if a[i] > a[k] then
begin
tmp := a[k];
a[k] := a[i];
a[i] := tmp;
end;
writeln('После сортировки:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
klv := 0;
writeln('Введите число X:');
readln(z);
for i := 1 to t do
if a[i] = z then
begin
b := true;
inc(klv);
end;
if b then
begin
writeln('Число ', z, ' встречается ', klv, ' раз(а).');
end;
if b = false then writeln('Число ', z, ' не встречается.');
end.
Program LeastCommonMult;
var
m, n, prod: word;
begin
readln(m, n);
prod := m * n;
while m <> n do begin
if m > n then begin
m := m - n
end
else begin
n := n - m
end
end;
writeln(prod div m)
end.