Напишите программу, которая позволяет ввести три вещественных числа и выводит на экран: натуральный логарифм квадрата суммы первого и третьего чисел. все вещественные числа должны быть выведены в форме с фиксированной точкой с двумя знаками после запятой, перед каждым вычисленным значением должны идти пояснительный текст и выражение.

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (a,b,c):=ReadReal3('Введите три числа через пробел:');

 Write('Натуральный логарифм квадрата суммы первого и третьего числа ',

     Ln(Sqr(a+c)):0:2)

end.

(*Объявление переменных*)

var

   var1,var2,var3, result:real;

begin

   (*Ввод значений*)

   readln(var1, var2, var3);

   

   (*Считаем натуральный лог. от квадрата суммы var1 и var3 *)

   result := ln((var1 + var2) * (var1 + var2));

   (*Выводим результат*)

   writeln('Результат = ', result:2);

   

   

   (*Выводим все введенные числа*)

   writeln('Число 1 = ', var1:2);

   writeln('Число 2 = ', var2:2);

   writeln('Число 3 = ', var3:2);

end.

fpc 3.0.0 - compiler

Был на свете человек он был обичный как все любил призидента и был нормальным но один раз когда он пошоо гулять с друзьями он упал в яму наткнувшись на блок он кго тронул и о него было видение потом его нашли копы работающие на призедента они розказали ему что Президент взорвет мир и только он мон мир с блока его хотели питать но пришел парень который его началась погоня и парень понял (его звали Дикарь) что человек (он де Эммет) не избранный продалдалась погоня и коп вистрельнул в Эммета пушкой (котороя не взривала а прилипила жучка)
Коп их стрелял но бэтмен их они полетели в Заоблачную даль
К другим крутим людям которие б им мир но из-за жучка прилетели копы и взорвали Заоблачную даль всех посадили в тюрмю но банда Эммета уцелела они пошли к Президенту гле их ожидали и словили все билы без но Эммет вибралса гле подертвовал собой для других и они закончили то что Эммет начал надавали люлей Президенту и копам и мир не взорвался а Эммет вижил!
Конец!

Объяснение:

program treugolnik;

uses crt;

var

x1, y1, x2, y2, x3, y3, p:real;

function dlina(a1,b1, a2,b2:real):real;

begin

dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));

end;

begin

writeln('Введите координаты 1-ой вершины');

write('x='); readln(x1);

write('y='); readln(y1);

writeln('Введите координаты 2-ой вершины');

write('x='); readln(x2);

write('y='); readln(y2);

writeln('Введите координаты 3-ей вершины');

write('x='); readln(x3);

write('y='); readln(y3);

p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);

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

end.