История возникновения языка программирования Пайтон
без спама

274

418

Посмотреть ответы 1

Ответы на вопрос:

snakesap

Информатика

4,5(81 оценок)

Program cgt; var x1,y1,x2,a,y2,b,c,x3,y3: real; procedure ioi(x1,y1,x2,y2: real; var a: real); begin a: =sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); end; begin read(x1,x2,y1,y2,x3,y3); ioi(x1,y1,x2,y2,a); ioi(x1,y1,x3,y3,b); ioi(x3,y3,x2,y2,c); if(a> =b)and(a> =c)then writeln('первая и вторая точка ',a) else if(b> =a)and(b> =c)then writeln('первая и третая точка ',b) else if(c> =b)and(c> =a)then writeln('третая и вторая точка ',c); end.2)program cgt; var z,x,y: real; function ioi(x: real): real; beginif(x=0)then ioi: =0; if(x< 0)then ioi: =-1; if(x> 0)then ioi: =1; end; beginread(x,y); z: =(ioi(x)+ioi(y))*ioi(x+y); writeln(z); end.