Question

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

Answer 1

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

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

Answer 2

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

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

begin

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

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

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

end.