Помогите с задачей по информатике. Операторы repeat until и while На олимпийских играх в соревнованиях по стрельбе “участник № 1” сбил 25 тарелок, а “участник № 2” - 35 тарелок. В каждый следующий тур стрельба первого участника улучшалась на 7%, а стрельба второго на 5% по сравнению с предыдущим днем. Через сколько туров один из участников победит, сбив больше 100 тарелок в день соревнования. Определите номер победителя.
Программа на языке Pascal
var
k,u,u1,u2:real;
begin
k:=1;
u1:=25;
u2:=35;
while (u1
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 тура первый участник