Question

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

Answer 1

var x,a,r:integer;
begin
write ('Введите массу гречи: ');
readln (x);
write ('Введите сколько грамм гречи пойдёт в каждый пакет: ');
readln (a);
r:=x mod a;
writeln ('В последнем пакете будет',r,' грамм гречи');
end.