Написать программу о нахождение площади равнобедренного треугольника по формуле герона. на паскаль.

258

488

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

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

MAXXB

Информатика

4,4(44 оценок)

program pr1; uses crt; var a,b,c,p,s: real; beginclrscr; readln(a,b,c); p: =(a+b+c)/2; s: =(p-a)*(p-b)*(p-c); s: =s*p; s: =sqrt(s); writeln(s); end.

Wishnewski

Информатика

4,4(74 оценок)

Первое . скоро сделаю остальное var a: array[1..15] of integer; i,sum,pr,k: integer; begin sum: =0; pr: =1; k: =0; for i: =1 to 15 do begin a[i]: =random(201)-100; writeln('a[',i,']=',a[i]); if i mod 2 = 0 then sum: =sum+a[i]; if a[i]< 0 then pr: =pr*a[i]; if a[i] mod 2 < > 0 then k: =k+1; end; writeln('summa elementov s chetnimi nomerami = ',sum); writeln('proizvedenie otritsatelnih elementov = ', pr); writeln('kol-vo nechetnih elementov = ',k); end. второе var a: array[1..5] of integer; b: array[1..5] of integer; i: integer; begin writeln('zapolnite massiv'); for i: =1 to 5 do begin read(a[i]); if a[i]< 0 then b[i]: =abs(a[i]); if a[i]> 0 then b[i]: =sqr(a[i]); if a[i]=0 then b[i]: =a[i]; end; writeln; for i: =1 to 5 do writeln('a[',i,']=',a[i]); writeln; for i: =1 to 5 do writeln('b[',i,']=',b[i]); end. третье var a: array[1..5] of integer; b: array[1..5] of integer; ibuf,i,max,q: integer; begin max: =0; writeln('zapolnite massiv'); writeln; for i: =1 to 5 do begin readln(a[i]); if a[i]> max then max: =a[i]; end; for i: =1 to 5 do if a[i]=max then ibuf: =i; for i: =1 to 5 do b[i]: =a[i]; b[ibuf]: =a[1]; b[1]: =max; writeln; for i: =1 to 5 do writeln('a[',i,']=',a[i]); writeln; for i: =1 to 5 do writeln('b[',i,']=',b[i]); end.