2 информатика нужна помощ

Question

2 информатика нужна помощ

---

Comments

На каком языке?

---

паскаль

---

На китайском.

---

Все три?

---

только 2

---

Хорошо, сейчас сделаю, 5 минут...

---

ок

Answer 1

Первая задача
var a,b,x,y,z:
real;
 begin 
write ('х='); 
read (x); 
write('y=');
read (y); 
write ('z='); 
read (z); 
a:= (x+y-z)/(x*x+2); 
write ('a='); 
write (a:1:2); end. 
Вторая
var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= 5*((2*x-z)/(3+y*y));
write ('a=');
write (a:1:2);
end.

Comments

var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= 5*((2*x-z)/(3+y*y));
write ('a=');
write (a:1:2);
end.

---

вторая это

---

в таком формата**

---

и первая

---

var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= (x+y-z)/(x*x+2);
write ('a=');
write (a:1:2);
end.

---

спасибо

---

Не забудь выбрать лучший ответ)

---

все