Предмет: Информатика, автор: 1323132325

решите пожалуйста очень надо через паскаль

Приложения:

Ответы

Автор ответа: thedomidy
1
  1. program task;
  2. var
  3.  y: real;
  4.  c, k, a: integer;
  5. begin
  6.  Readln(c, k, a);
  7.  if k = -2 then
  8.    Writeln('error! dividev by zero!')
  9.  else
  10.    begin
  11.      y := ((3 * Sqrt(c))/(2 + k)) - (Abs(a))/2;
  12.      Writeln(y)
  13.    end;
  14. end.

1323132325: спасибо
Похожие вопросы
Предмет: Английский язык, автор: nik261031