Напишите программу к задаче вообще не понимаю! Заранее спасибо!!! Поставлю ответ лучшим! ...

Question

Напишите программу к задаче вообще не понимаю! Заранее спасибо!!! Поставлю ответ лучшим!
Шоколадка стоит a рублей с копеек. Какое наибольшее количество шоколадок можно купить за b рублей?

Comments

На каком языке программирования?

Answer 1

Var
  a,b,c:integer;
begin
  Write('Сколько стоит шоколадка (руб коп)? ');
  Read(a,c);
  Write('Сколько у вас рублей? ');
  Read(b);
  Write('Вы можете купить шоколадок: ',
    (100*b) div (100*a+c))
end.

Пример
Сколько стоит шоколадка (руб коп)? 35 50
Сколько у вас рублей? 140
Вы можете купить шоколадок: 3

Comments

Спасибо большое! Все работает!

Answer 2

Program program1;
var
a, b, c, n: integer;
begin
writeln('Введите стоимость шоколадки:');
write('рублей и копеек через пробел: ');
readln(a, c);
write('Введите количество рублей, которые имеются у Вас: ');
readln(b);
if (a < 0) or (c < 0) or (c > 99) then
writeln('введите корректные данные')
else
begin
n := trunc(b / (a + c/100));
writeln(n, ' шоколадок');
end;
end.

Comments

я 5 лкасс как то попроще можно?

---

в техническом лицее учат, решение нужно через mod div