Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);
line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);
line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);
floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.
Ну вот шаблон, и решение по 2й задаче, И скрин результатов работы.
P.S. С кодировками кириллицы могут быть проблемы.
Ответ: 21211
1) 2*3=6
2) 6-1=5
3) 5*3=15
4) 15-1=14
5)14-1=13
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.