Pascal 1. дан прямоугольный треугольник с катетами a и b. составьте программу для вычисления гипотенузы c, периметра, площади, радиуса вписанной и описанной окружности. напишите программу в pascal

189

323

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

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

nisa89

Информатика

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

Program calculations; var a,b,c, s, p,poluperimetr , radius1, radius2: real; begin writeln ('enter a: '); readln(a); writeln('enter b: '); readln(b); c: =sqrt(a*a+b*b); s: =(a*b)/2; p: =a+b+c; ; poluperimetr: =p/2; radius1: =c/2; radius2: =-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr); writeln('c=',c: 2: 2); writeln('s=',s: 2: 2); writeln('p=',p: 2: 2); writeln('radius1=',radius1: 2: 2); writeln('radius2=',radius2: 2: 2); readln; end.

iibixa1

Информатика

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

//"школьный" вариант, блок-схема во вложении //pascal abc.net v3.0 сборка 1111 var s,n,i: integer; begin readln(n); s: =0; for i: =1 to 3 do begin; s: =s+n mod 10; n: =n div 10; end; if s mod 2=0 then writeln('yes') else writeln('no'); end.пример ввода: 123пример вывода: yes