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

@JC · Регистрация: 05.10.2016

Author24 — интернет-сервис помощи студентам

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

@Puporev · 16.10.2016, 10:39

Pascal

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.

@JC · 24.10.2016, 20:52 **[ТС]**

Например:
Ввод
0 50
10 20
Вывод
20
0 20

@JC 0 / 0 / 0 Регистрация: 05.10.2016 Сообщений: 37
		1
	Определить, сколько ручек можно купить за c гривен и d копеек 16.10.2016, 10:12. Показов 3045. Ответов 2 Метки нет (Все метки) Одна ручка стоит a гривен и и копеек.Напишите программу которая определяет сколько ручек можно купить за c гривен и d копеек , а также сколько останется 0

@JC 0 / 0 / 0 Регистрация: 05.10.2016 Сообщений: 37
	24.10.2016, 20:52 [ТС]	3
	Например: Ввод 0 50 10 20 Вывод 20 0 20 0

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

Решение