Программа на языке Pascal
var
k,u,u1,u2:real;
begin
k:=1;
u1:=25;
u2:=35;
while (u1<100) or (u2<100) do
begin
u1:=u1+u1*0.07;
u2:=u2+u2*0.05;
k:=k+1;
end;
writeln('Количество туров:',k);
if u1>=100 then writeln(1) else writeln(2)
end.
ОТвет 23 тура первый участник
Begin
kk:=0;
for i:=1 to 15 do begin
a[i]:=random(1)+20;
if(a[i]>10)then inc(kk);
end;
end;
program vichislenie_function;
var
x, y: real;
begin
writeln('Введи х');
readln(x);
y := x * x + 2 / (7 * x) - 9;
writeln('y=', y:5:2);
end.
ну например 4A Motor Shield на основе MC33932
https://www.chipdip.by/product/4a-motor-shield