4. Напишите код программы, которая будет вычислять периметр фигуры.Program

4. Напишите код программы, которая будет вычислять периметр фигуры.
Program Perimeter;
Var
Begin
Writeln
Readln
End.

Задать свой вопрос
1 ответ
Uses crt;
function f(a,b:real):real;
begin
f:=sqrt(a*a+b*b)
end;
var ab,ac,dc,bd,g,p:real;
begin
clrscr;
writeln('Введите длины строн');
write('ab=');readln(ab);
write('ac=');readln(ac);
write('dc=');readln(dc);
g:=f(ab,ac);
bd:=f(g,dc);
p:=ab+ac+dc+bd;
write('Периметр=',p:0:2);
readln
end.
Сема
обьясните не много как вы это зделали
Евдунова София
просто завтра контрольная а я хз как я буду это обьяснять учителю
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт