Регистрация
tatyanamost
07.09.2022 00:44
Информатика
Есть ответ 👍

Скласти сенкан на тему "Листівка"

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

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

olyamin0
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.

Популярно: Информатика