** фармацевтичній фірмі було виготовлено а таблеток від кашлю, які автомат розфасував...

Question

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

Comments

На мові Pascal

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