Составить программу на языке Pascal для вычисления - вопрос №13577921 от bastovayasofia 14.09.2020 07:02

Question

Информатика: Составить программу на языке Pascal для вычисления величины

bastovayasofia · Answer

PascalABC.NET ₃.₆.₃.₂₅₇₇##var f: RealFunc := x -> x<3 ? Tan(x/2) : x>3 ? Abs(x-2) : real.NaN;f(ReadReal).PrintPascal $_{(other}$ $_{editions)}$ var x: real;begin Readln(x); if x<3 then Write(Tan(x/2)) else if x>3 then Write(Abs(x-2)) else Write('Корней нет');end.

Пример работы:

Составить программу на языке Pascal для вычисления величины