Составьте программу, которая для произвольного натурального двузначного числа определяет число, образованное перестановкой цифр исходного числа.

Var a,b,ab: integer; begin write('введите двухзначное число - '); read(ab); if (ab> =10) and (ab< =99) then       begin       a: =ab div 10;       b: =ab mod 10;       writeln ('после перестановки чисел у нас получилось: ',b,a);       end else write('число ',ab,' не является двухзначным '); end.

Код pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses crt; var s1,s2,z1,z2: string;     i: integer; begin z1: ='минск столица беларуси'; z2: ='беларусь ты моя синеокая';   writeln('dana stroka: '); writeln(z1); s1: =''; s2: =''; i: =1; while z1[i]< > ' ' do       begin       s1: =s1+z1[i];       inc(i);       end; i: =length(z1); while z1[i]< > ' ' do       begin       s2: =z1[i]+s2;       dec(i);       end; delete(z1,1,length(s1)); delete(z1,length(z1)-length(s2)+1,length(s2)); write (s2,z1,s1); writeln; writeln('dana stroka: '); writeln(z2); s1: =''; s2: =''; i: =1; while z2[i]< > ' ' do       begin       s1: =s1+z2[i];       inc(i);       end; i: =length(z2); while z1[i]< > ' ' do       begin       s2: =z2[i]+s2;       dec(i);       end; delete(z2,1,length(s1)); delete(z2,length(z2)-length(s2)+1,length(s2)); write (s2,z2,s1); readln; end.

вот программа, довольно понятная, 

комментарии:

lepestkov: =13; - тут можно менять количесто лепестков

fi: =2*3.14*i/lepestkov;

2*pi - это полный угол 360 градусов. мы делим его на количество лепестков. таким образом мы получаем угол на который должен идти лепесток.

 

картинка ромашки во вложении. если такая не пойдет, отмечай как нарушение.

 

uses crt, graph; var gdriver, gmode, errcode: integer; i: integer; lepestkov: integer; fi,x,y: real; radius: integer; begingdriver: =detect; initgraph(gdriver, gmode,''); errcode: =graphresult; if(graphresult < > grok) thenbeginwriteln('ne mogu naiti file graphiki'); readln; end; setcolor(green); line(320,200,320,400); setcolor(yellow); setfillstyle(solidfill, yellow); fillellipse(320,200,15,15); setfillstyle(solidfill, white); setcolor(white); lepestkov: =13; for i: =1 to lepestkov dobegin fi: =2*3.14*i/lepestkov; for radius: =24 to 60 do begin x: =320 + radius*cos(fi); y: =200 + radius*sin(fi); fillellipse(round(x),round(y),10,10); end; end; readln; end.