Автомат отпускает максимум N единиц товара. Известна стоимость одной единицы товара Z и сумма денег, имеющаяся у покупателя S. Сколько единиц товара может получить покупатель и какова сдача?

1

Ответы и объяснения

2013-05-22T08:24:35+00:00

var n,z,s,x:integer;
begin
writeln('Vvedite N');
read(n);
writeln('Vvedite Z');
read(z);
writeln('Vvedite S');
read(s);
x:=(n*z);
writeln('Edinis ',x div z);
writeln('Sdacha ',s mod x);
end.