Помогите пожалуйста помогите плиз!!!!

Помогите пожалуйста помогите плиз!!!!

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

var

n : longint

p, q : integer

Begin;

Readln (n);

Readln (p);

Readln (q);

a:= n+p;

b:= n/100*q+n;

b:= b/100*q+b;

b:= b/100*q+b;

b:= b/100*q+b;

b:= b/100*q+b;

b:= b/100*q+b;

If agt;b then begin

writeln("1");

end

else begin

writeln("2");

end;

End.


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


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

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

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

Войти на сайт