составить программу для 3 номера.Скоро сдать нужно,но я не знаю, как его сделать.
за

300

500

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

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

olyamin0

Информатика

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

1) Как пример вот задача

var

a,b,p,s:real;

begin

Writeln('Введите значение а = ');

read(a);

writeln('Введите значение b = ');

read(b);

s:=a*b;

p:=2*(a+b);

writeln('Площадь = ',s);

Writeln('Периметр = ', p);

end.

2) Как найти гипотезу и площадь. Задача под 2

Program prtr;

var a,b,c,S: real;

begin

readln(a); //1 катет

readln(b); // 2 катет

c=sqrt(a*a+b*b); //теорема пифагора

S=0.5*a*b; //площадь

writeln(c);

writeln(S);

end.

Syrkova1

Информатика

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

Var n, m: integer; begin readln(n, m); writeln(exp(ln(n) * m)); end.можно было через циклы, но там слишком много условностей (вдруг степень отрицательна? ) а так в одно действие уложилось)