var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.
Все единицы, кроме 1000, 1001
см. приложение.
Лист Excel "живой", позволяет вычислить другие значения.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Снимаете защиту, копируете элементы, считаете.
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,p):=ReadInteger2('Введите n и p:');
var a:=ArrRandom(n,-99,99); a.Println;
var i:=a.FindIndex(t->t=p);
if i=-1 then Writeln('Нет элемента со значением ',p)
else Writeln($'Элемент номер {i+1} имеет значение {p}')
end.
А здесь необходимые двадцать символов, lol