1)
алг
нач
цел таб a[1:7]
цел i, mn
нц для i от 1 до 7
a[i]:=irand(10,99)
вывод a[i],' '
кц
mn:=a[1];
нц для i от 2 до 7 если a[i]<mn то mn:=a[i] все кц
вывод 'минимальный элемент: ',mn
кон
2)
алг
нач
цел таб a[1:10]
цел i, c
c:=0;
нц для i от 1 до 10
a[i]:=irand(1,9)
вывод a[i],' '
кц
нц для i от 1 до 10 если a[i]<7 то c:=c+1 все кц
вывод 'кол-во элементов меньше 7: ',c
кон
Незноппповвеоппакепппппаааееппмвв
V=256умножить на 256-30+25равно 12
Var n,k:integer;
begin
write('n='); readln(n);
k:=1;
while k<=n do
begin
write(k,' ');
k:=k*2;
end;
writeln;
end.
Пример:
n=50
1 2 4 8 16 32
S - текст V - скорость печатания каждой девочки
Печатают вдвоём:
S/(2*V) = 1 час --->S = 2*V
Печатают втроём:
S/(3*V) = 2*V/ (3*V) =2/3часа =120/3 = 40 мин