//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, ' рублей мелочью.'); end.
Результат работы: Сколько стоит товар? 324 Сдача 676 рублей. Нужны купюры: 1 по 500 рублей, 1 по 100 рублей, 1 по 50 рублей, 2 по 10 рублей, и ещё 6 рублей мелочью.
Что мы знаем о войне немного по рассказам бабушек и мам знаем, что надежда и тревога об руку ходили по домам слухи зависали как знамена дымом застилался горизонт многоверстный и многоименный жаждал крови ненасытный фронт а из тыла за волной волна шла латать верховные промашкивсасывала мальчиков война и выплевывала мертвые бумажкикаждый шаг к победе ли к бедесводки измеряли расстояньем даже самый распобедный день был комуто вечным расставаньемгоды возвращающий экраночевидцев честные романывсе равно останутся обманомссадины не заменяют рантолько изредка за толщей дней вдруг всплеснёт сирены голос лютыйзамирая криками детей и застынет сердце на минуту
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, ' рублей мелочью.');
end.
Результат работы:
Сколько стоит товар?
324
Сдача 676 рублей.
Нужны купюры:
1 по 500 рублей, 1 по 100 рублей, 1 по 50 рублей, 2 по 10 рублей, и ещё 6 рублей мелочью.