Помогите с задачей по информатике. Операторы repeat until и whileНа олимпийских

Помогите с задачей по информатике. Операторы repeat until и while


На олимпийских забавах в соревнованиях по
стрельбе соучастник 1 сбил 25 тарелок, а соучастник
2 - 35 тарелок. В каждый последующий тур стрельба
первого соучастника улучшалась на 7%, а стрельба второго на 5% по сопоставленью с предшествующим деньком. Через сколько туров один из участников одолеет, сбив больше 100
тарелок в денек соревнования. Обусловьте номер фаворита.

Задать свой вопрос
1 ответ

Программка на языке Pascal

var

k,u,u1,u2:real;

begin

k:=1;

u1:=25;

u2:=35;

while (u1lt;100) or (u2lt;100) do

begin

u1:=u1+u1*0.07;

u2:=u2+u2*0.05;

k:=k+1;

end;

writeln('Количество туров:',k);

if u1gt;=100 then writeln(1) else writeln(2)

end.

ОТвет 23 тура первый соучастник

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт