Question

Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый. Пакетов может быть неограниченное количество. Сколько гречи будет в последнем заполненном пакете?
Помогите, пожалуйста.

Answer 1

// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый. 
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?

var x,a  : longword;
begin
  writeln ('Введите общую массу гречи, в граммах');
  readln (x);
  writeln ('Введите массу насыпаемой в пакет гречи, в граммах');
  readln (a);
  writeln ('полных пакетов будет ',(x div a));
  if (x mod a)=0  then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')
                  else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи');
end.