Язык Pascal. Напишите программу, которая позволяет - вопрос №17132365 от mehili 08.09.2022 21:16

Question

Информатика: Язык Pascal. Напишите программу, которая позволяет вводить дату в американском формате-мм/дд/гг, - и преобразовывает её в формат дд.мм.гг. ​

mehili · Answer

PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)

$\tt\displaystyle y = 0.5 + \sqrt{x^2 + 1} - tg^2(x^2 + 1)$

const xMin = 1.5; xMax = 2.3; xDelta = 0.1; var x, y, resultSum: real; valueOfIt: integer; begin x := xMin; while x <= xMax do begin y := 0.5 + Sqrt(Power(x, 2.0) + 1) - Power(Tan(Power(x, 2.0) + 1), 2.0); if (y < 0) then resultSum := resultSum + y; x := x + xDelta; valueOfIt := valueOfIt + 1; end; Writeln('Среднее отрицательных значений: ', resultSum / valueOfIt); end.ответ

Среднее отрицательных значений: -12.7547010184892

Язык Pascal. Напишите программу, которая позволяет вводить дату в "американском" формате-мм/дд/гг, - и преобразовывает её в формат дд.мм.гг. ​

Язык Pascal. Напишите программу, которая позволяет вводить дату в "американском" формате-мм/дд/гг, - и преобразовывает её в формат дд.мм.гг.