Полюбому ты эти вопросы взял из книжки, поэтому посмотри тему и ты найдешь свой ответ
Var _500,_100,_50,_10,money_get:integer;beginwriteln('Введите стоимость товара');readln(money_get);while(money_get mod 10 <> 0) do begin writeln('стоимость должна делиться на 10, попробуйте еще раз'); readln(money_get); end;while (money_get>=500) do begin _500:=_500+1; money_get:=money_get-500; end;while (money_get>=100) do begin _100:=_100+1; money_get:=money_get-100; end;while (money_get>=50) do begin _50:=_50+1; money_get:=money_get-50; end;while (money_get>=10) do begin _10:=_10+1; money_get:=money_get-10; end;
writeln(_500,': 500 рублей',_100,':100 рублей',_50,':50 рублей',_10,':10 рублей');
readln;end.<span>
</span>
Ответ 97
5х19 плюс 3х20 равно 155
2х19 плюс 20 равно 58
155 минус 58 равно 97
Если ты сам это сделал, сам придумал
Например, этот ответ является авторским, потому что я сам его придумал и написал, и чтобы кто-то его скопировал он должен спросить разрешение у меня