<span>Повне имя файлу:
</span><em>c:\10-Б\алгебра\реферат</em>
//PascalABC.NET Версия 3.0 Сборка 1150
var n:integer;
begin
writeln('Сколько стоит товар?');
readln(n);
n:=1000-n;
writeln('Сдача ',n,' рублей. Нужны купюры:');
writeln(n div 500, ' по 500 рублей, ', (n-(n div 500)*500)div 100, ' по 100 рублей, ', (n mod 100) div 50, ' по 50 рублей, ', (n-(n div 50)*50) div 10,' по 10 рублей, и ещё ', n mod 10, ' рублей мелочью.');
<span>end.
Результат работы:
Сколько стоит товар?
324
Сдача 676 рублей.
Нужны купюры:
1 по 500 рублей, 1 по 100 рублей, 1 по 50 рублей, 2 по 10 рублей, и ещё 6 рублей мелочью.<span>
</span></span>
Попробуй что-то типо такого
Н-1
О-4
И т.д и т.п
14сит
Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;
Всего в парке 420 деревьев 65 сосен
65-14=51елей, значит лиственниц тоже 51
51+12=,63 кипариса
420-65-51-51-66=190