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

Узнай цену своей работы

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

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

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

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.

Объяснение кода листинга программы

  1. Создается переменная a и присваивается ей значение 0.
  2. Создается переменная b и присваивается ей значение 0.
  3. Создается переменная c и присваивается ей значение 0.
  4. Создается переменная d и присваивается ей значение 0.
  5. Выводится сообщение «Введите стоимость ручки, гривны и копейки».
  6. Считывается значение переменной a и сохраняется в переменную a.
  7. Считывается значение переменной b и сохраняется в переменную b.
  8. Выводится сообщение «Введите наличную сумму, гривны и копейки».
  9. Считывается значение переменной c и сохраняется в переменную c.
  10. Считывается значение переменной d и сохраняется в переменную d.
  11. Вычисляется значение переменной b как 100*a+b.
  12. Вычисляется значение переменной d как 100*c+d.
  13. Вычисляется значение переменной k как d div b.
  14. Выводится сообщение «Можно купить k руч.».
  15. Если значение переменной k больше 0, то вычисляются значения переменных a и b как (d-kb) div 100 и (d-kb) mod 100 соответственно.
  16. Выводится сообщение «Останется a гр. b коп.».

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы