Вам предоставлена программа на языке C , объяснить работу программы и объяснить значения функций. #include
#include

#define DELIM " \t\n"

int main(void) {
char buf[BUFSIZ], * p;

while ( printf("\nString: ") && fgets(buf, BUFSIZ, stdin) && *buf != '\n' && printf("Result: ") )
for ( p = strtok(buf, DELIM); p; p = strtok(NULL, DELIM) )
if ( strchr(p, 'A') )
printf("%s ", p);

return 0;
}

Есть несколько удаления программы.
1) заходишь в МОЙ КОМПЮТЕР ищешь там папку, в которой эта программа и удаляешь эту папку полностью.
2)заходишь в МОЙ КОМПЮТЕР, находишь папку этой программы, там будет среди прочих файлов значёк (обычно похож на корзину для мусора) открываешь его, он тебя спросит: "Вы действительно хотите удалить такую-то программу?" нажимаешь "ОК".
3) если программа имеет вредоносный файл-вирус, то он может не давать удалить себя и выдавать ошибку при удалении. В таком случае стоит с антивирусника просканировать эту папку и удалить вирус, после этого можете удалять.

Напишу все же с жадным)))

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=Arr(1000,100,50,10); // массив с достоинствами купюр
  var s:=ReadInteger('Введите сумму:'); // сумма к оплате
  Writeln('Уплатить:');
  var i:=0;
  while s>0 do begin
    var p:=s div k[i];
    if p>0 then Writeln(p,' шт. достоинством ',k[i],' руб.');
    s:=s mod k[i]; i+=1
    end;
end.

Пример
Введите сумму: 1630
Уплатить:
1 шт. достоинством 1000 руб.
6 шт. достоинством 100 руб.
3 шт. достоинством 10 руб.