Покупатель должен заплатить в кассу s рублей. у него имеются монеты в 1, 2 и 5 рублей, а также купюры достоинством в 10, 50, 100 и 500 рублей (достаточное количество). сколько монет и купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных? операции целочисленного деления (div и mod) использовать нельзя. протестировать программу для s=567, s=1025, s=64, s=13.

Var       money: array[1..7]of integer;       count: array[1..7]of integer;       s, i: integer; begin       money[1] : = 1;       money[2] : = 2;       money[3] : = 5;       money[4] : = 10;       money[5] : = 50;       money[6] : = 100;       money[7] : = 500;             write('s = ');       readln(s);             i : = 7;       repeat               if s > = money[i] then begin                       s : = s - money[i];                       count[i] : = count[i] + 1;               end               else i : = i - 1;       until s < = 0;             for i : = 7 downto 1 do               if count[i] > 0 then                       writeln(money[i], ' p. = ', count[i], ' шт.') end.

алфавит из 33 букв это:

аа, бб, вв, гг, дд, ее, ёё, жж, зз, ии, , кк, лл, мм, нн, оо, пп, рр, сс, тт, уу, фф, хх, цц, чч, шш, щщ, ъъ, , , ээ, юю, яя

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.