На фармацевтичній фірмі було виготовлено а таблеток від кашлю, які автомат розфасував порівну в b флаконів. Розробіть алгоритм і програму визначення кількості таблеток, розфасованих у кожний флакон і кількості таблеток, що залишилися не розфасованими.
More Questions From This User See All
Answers & Comments
Verified answer
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