50 БАЛЛОВ Запишите программу на языке Паскаль (в программе PascalABC.net ) для...

50 БАЛЛОВ Запишите программу на языке Паскаль (в программе PascalABC.net ) для вычисления функции f, используя операторы ветвления. Выведите на экран подробную запись полученного значения, например : writeln(‘Значение функции f= ', f:5:2); Текст Вашей программы сохраните в файл PascalABC.net. Прикрепить файл программы к этому заданию (нажать кнопку «Загрузить» и найти необходимый файл). Напишите программу, очень СРОЧНО!!!

Ответ:

program gyuefu;

var

f: real;

begin

writeln('Если f>0,то f*f, если f

writeln('Введите f:');

readln(f);

begin

if f > 0 then

writeln('Значение функции f = ', sqr(f), ';') end;

begin

if f

writeln('Значение функции f = ', sqrt(f), ';') end;

end.

Скопируй и вставь в ПаскальABC.

50 БАЛЛОВ Запишите программу ** языке Паскаль (в программе PascalABC.net ) для...