// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый.
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?
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>
Я не уверена Но думаю номер 5
Круг получается...............
<em>
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>begin
var a:=ReadReal('a=');
if a>0 then Writeln(0.4*ln(a):0:4)
else Writeln('Логарифм не существует')
end.
<u>Пример</u>a= 2.543
0.3733