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 не может быть суммой четных чисел
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.
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 числа
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.