Question

На фармацевтичній фірмі було виготовлено а таблеток від кашлю, які автомат розфасував порівну в b флаконів. Розробіть алгоритм і програму визначення кількості таблеток, розфасованих у кожний флакон і кількості таблеток, що залишилися не розфасованими.

Answer 1

var a,b,c,d:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=a div b;
d:=a mod b;
writeln('Количество таблеток в каждом флаконе: ',c);
writeln('Осталось таблеток: ',d);
end.

Пример:
a = 1000
b = 30
Количество таблеток в каждом флаконе: 33
Осталось таблеток: 10