Написать программу: гречу, массой х г, рассыпают по пакетам: по а г в каждый. пакетов может быть неограниченное количество. сколько гречи будет в последнем заполненном пакете? , .
// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый. //Пакетов может быть неограниченное количество. Сколько гречи будет в //последнем заполненном пакете?
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.
Напишу ответ, потому что: 1) Все же С++ изучают реже, чем Паскаль 2) Чтобы в очередной раз показать преимущества Паскаля над С-подобными языками для школьных задач. Как говорится, "Имеющий глаза - да увидит!"
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('N='); for var i:=1 to n do begin var (flag,j,r):=(True,2,Round(Sqrt(i))); while flag and (j<=r) do if i mod j = 0 then flag:=false else j+=1; if flag then Print(i) end end.
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?
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.