задачи на циклы в паскале с решением

Ответ от Ra[гуру]
1. const c500 = 500; c100 = 100; c50 = 50; var s, n500, n100, n50: integer; begin write(\'s? \'); read(s); n500 := 0; n100 := 0; n50 := 1; while s >= c500 do begin dec(s, c500); inc(n500); end; while s >= c100 do begin dec(s, c100); inc(n100); end; while s > c50 do begin dec(s, c50); inc(n50); end; writeln(\'500: \', n500); writeln(\'100: \', n100); writeln(\'50: \', n50); end.