Для произвольного значения доводов вычислить значения функции на PascalABC:f = k+корень

Для случайного значения доводов вычислить значения функции на PascalABC:

f = k+корень m, если mgt;0;
k/m+2, в неприятном случае

Задать свой вопрос
1 ответ

var k,m:single;

begin

 write('Введиет число K= '); readln(k);

 write('Введите число M= '); readln(m);

 if mgt;0 then writeln('f=(',k+sqrt(m):0:2,')')

 else writeln('f=(',k/m+2:0:2,')');

end.  

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт