// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый. //Пакетов может быть неограниченное количество. Сколько гречи будет в //последнем заполненном пакете?
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),' грамм гречи'); <span>end.</span>