Var
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');<span>
</span> <span>Readln(A);
</span>
Writeln('Введите цену остальных газет:');<span>
</span> <span>Readln(X);
</span> if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.
75 дели на 2 столбиком. пока делитель не станет больше делимого
===== PascalABC.NET =====
begin
var (a, b, R) := ReadReal3('Введите a, b, R:');
var (x0, h, xn) := ReadReal3('Введите x0, h, xn:');
var (x, k) := (x0, 0);
while x <= xn + h / 2 do
begin
if Sqr(x - a) + Sqr(Sin(x) + Cos(x) - b) <= R * R then
k += 1;
x += h
end;
Print('Количество значений равно', k)
end.