Дано натуральное число n. Определить число выплаты суммы n рублей с монет достоинством 1, 2, 5 рублей и бумажных купюр достоинством 10 рублей, а также все выплаты. Язык паскаль, только цикл for и while, repeat.

как-то так

Объяснение:

var

n,s,k:integer;

begin

 writeln( 'введите n');

 readln(n);

 s:=0; k := 0;

 while s<=n do begin  

  s:=s+10; k:=k+10 end;

  s:=s-10;k:=k-10;

while s<=n do begin    s:=s+5; k:=k+4 end;

s:=s-5; k:=k-4;

while s<=n do begin s:=s+2;k:=k+2;end;

s:=s-2;k:=k-2;

 while s<=n do begin s:=s+1;k:=k+1;end;

 s:=s-1; k:=k-1;

 writeln ('сумма',n,' получена получившаеся набранная сумма для проверки',s)

end.