1. Представьте в виде словесной записи алгоритм решения следующей задачи.
Фруктовый магазин продает яблоки поштучно 10 руб., груши – по 20 руб., апельсины – по 30 руб. В первые два дня недели продан: понедельник – х яблок, у груш, z апельсинов; во вторник – z яблок, у груш, х апельсинов. Вычислите, на какую сумму продал магазин фруктов за эти два дня.

419 + например 4559
1319 - т.к. сумма четных цифр дает четное число, а здесь все нечетные
2014 - убывание или числа 2 и 014, а число не может начинаться с 0
1811 - убывание
1212 + например 6657
205 - т.к. в порядке неубывания могут стоять только 2 и 05, а на 0 числа не начинаются
322 + 3886
294 - т.к. в порядке неубывания могут стоять только 2 и 94, а  сумма 3 чисел не может превышать 27
55 - т.к. все 4 нечетные числа в сумме дают максимум 36, а 5 и 5 невозможно, т.к. 5 не может быть суммой четных чисел

Итого: 3 числа

Uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 360 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180)); 
y1:=y-round(r*sin(i*pi/180)); 
line(x,y,x1,y1); 
end;
end.

uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 135 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180)); 
y1:=y-round(r*sin(i*pi/180)); 
line(x,y,x1,y1); 
end;
end.

uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=100;
y:=50;
r:=200;
for i:=1 to 360 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180))+200; 
y1:=y-round(r*sin(i*pi/180))+200; 
line(x,y,x1,y1); 
end;
end.