Определить, сколько ручек можно купить за c гривен и d копеек - Turbo Pascal

Формулировка задачи:

Одна ручка стоит a гривен и и копеек.Напишите программу которая определяет сколько ручек можно купить за c гривен и d копеек , а также сколько останется

Код к задаче: «Определить, сколько ручек можно купить за c гривен и d копеек - Turbo Pascal»

textual
var a,b,c,d,k:integer;
begin
writeln('Введите стоимость ручки, гривны и копейки');
readln(a,b);
writeln('Введите наличную сумму, гривны и копейки');
readln(c,d);
b:=100*a+b;
d:=100*c+d;
k:=d div b;
writeln('Можно купить ',k,' руч.');
if k>0 then
 begin
  a:=(d-k*b)div 100;
  b:=(d-k*b) mod 100;
  writeln('Останется ',a,' гр. ',b,' коп.');
 end;
end.

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ