Напишите программку пожалуйста

Напишите программку пожалуйста

Задать свой вопрос
1 ответ
Program ff;

var
x,y,z,a,b : real;
i:integer;
begin
writeln('Введите значения x');
readln(x);
writeln('Введите значения y');
readln(y);
y1:=y;
writeln('Введите значения z');
readln(z);
for i:=1 to 3 do y:=y*y;
a:=((44*z+x)/(y-5))+8;
writeln('a=',a);
b:=(sqr(x)*(sqr(y1)-2))+((sqrt(3+z)/8));
writeln('b=',b);
readln();
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт