ИнформатикаПомогите решить задачку

Информатика
Помогите решить задачку

Задать свой вопрос
1 ответ
Var x,s,k:integer;
begin
readln(x,s);
k:=-1;
while (sgt;=x)and(xgt;=1) do
 begin
 k:=k+1;
 s:=s-x;
 x:=x-1;
 end;
if x=0 then k:=k+s;
writeln(k);
end.

Пример:
4 9
2
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт