Предмет:
ИнформатикаАвтор:
fresierАвтор:
bunny rabbitАвтор:
damiánwebbАвтор:
jrАвтор:
batesАвтор:
doodlesvz8xАвтор:
hopesfzu(*Объявление переменных*)
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
Автор:
stinkyx5h3// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Write('Натуральный логарифм квадрата суммы первого и третьего числа ',
Ln(Sqr(a+c)):0:2)
end.
Автор:
madysonnavarroДобавить свой ответ
Предмет:
Другие предметыАвтор:
april31Ответов:
Смотреть
Предмет:
БиологияАвтор:
bradley100Ответов:
Смотреть
Предмет:
Английский языкАвтор:
isaacjgvtОтветов:
Смотреть