Помогите составить программу в паскале,пожалуйста!

Помогите составить программку в паскале,пожалуйста!

Задать свой вопрос
1 ответ
1.
program dfjg;
var a,b,c,y,z:real;
begin
writeln('Введите a,b,c и z');
readln(a,b,c,z);
y:=((a+b)/3-3.86*(z*b-a*c))/2;
writeln('y=',y);
end.

2.
program dfjg;
var y,z:real;
begin
writeln('Введите z');
readln(z);
if zlt;12
then y:=z-2*z+4
else y:=sqr(z)+16;
writeln('y=',y);
end.

Violetta
программа не непременно обязана иметь имя. не майтесь
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт