program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer;
begin
writeln ('введите вес бандероли');
readln (w);
if w < = n
then c: =10
else
if w mod n = 0
then c: =10+((w div n)-1)*5
else c: =10+5+((w div n)-1)*5;
d10: = c div 10;
d4: = (c-10*d10) div 4;
d1: = (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм');
writeln;
writeln ('для оплаты нужно не менее');
writeln (d10: 10,' монет по 10 драхм');
writeln (d4: 10,' монет по 4 драхмы');
writeln (d1: 10,' монет по 1 драхме');
end.
результат работы программы:
введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее
1 монет по 10 драхм
1 монет по 4 драхмы
1 монет по 1 драхме
===== 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.