Предмет: Информатика,
автор: 1323132325
решите пожалуйста очень надо через паскаль
Приложения:

Ответы
Автор ответа:
1
- program task;
- var
- y: real;
- c, k, a: integer;
- begin
- Readln(c, k, a);
- if k = -2 then
- Writeln('error! dividev by zero!')
- else
- begin
- y := ((3 * Sqrt(c))/(2 + k)) - (Abs(a))/2;
- Writeln(y)
- end;
- end.
1323132325:
спасибо
Похожие вопросы
Предмет: Английский язык,
автор: nik261031
Предмет: Окружающий мир,
автор: berlibagd
Предмет: Математика,
автор: ninjago1337
Предмет: География,
автор: DianaSims