Question

Для паскаля, 7 класс ​

Answer 1

Ответ:

Объяснение:

1)

 var

 a: integer;

begin

 write('Введите a ');

 readln(a);

 writeln('P = ', 4*a);

 P:=(a+b+c)/2;

 writeln('S = ', sqr(a));

end.  

2)

 var

 a,b: integer;

begin

 write('Введите a ');

 readln(a);

 write('Введите b ');

 readln(b);

 writeln('P = ', (a+b)*2);

 P:=(a+b+c)/2;

 writeln('S = ', a*b);

end.  

3)

var

 a,b,c: integer;

 P: real;

begin

 write('Введите a ');

 readln(a);

 write('Введите b ');

 readln(b);

 write('Введите c ');

 readln(c);

 writeln('P = ', a+b+c);

 P:=(a+b+c)/2;

 writeln('S = ',sqrt(p*(p-a)*(p-b)*(p-c)));

end.