Предмет: Информатика,
автор: gordienkonikita2002
Решите пожалуйста две задачи на Pascal.
Приложения:
![](https://files.topotvet.com/i/438/4381dc4ef11b6007ccdc33b2d789e804.jpg)
Ответы
Автор ответа:
1
1)
var x,z:real;
begin
read(x);
if x<7 then z:=7-x
else if x>9 then z:=x-9
else z:=x*x-40;
write(z:0:3);
Если х - число вещественное.
Похожие вопросы
Предмет: География,
автор: todorovaks
Предмет: Русский язык,
автор: Аноним
Предмет: Химия,
автор: dianabudik9
Предмет: Математика,
автор: НочкаДжи64