// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (a,c,x):=ReadReal3('Введите a,c,x:');
var y:=(2*a-a/23)/Sqrt(1+a/4);
var z:=(2*c-4*y+Abs(a-y))/(Exp(x)+2*a*y*a);
Writeln('Y=',y,', Z=',z)
end.

Пример
Введите a,c,x: 3.5 -0.167 3.11
Y=5.00094509026456, Z=-0.129959221453275

0 0

4 года назад

Прочитать ещё 2 ответа

1)Проанализируй и напиши программу на языке Паскаль. Вычислить n!, если значение n пользователь вводит с клавиатуры. Если n=1, т

ЯнаИгорь

1:
var n:integer;otvet:real;
begin
writeln('Введи n:');
readln(n);
otvet:=1;
for var i:=1 to n do otvet:=otvet*i;
writeln('n!=',otvet);
end.

2:
var n:integer;otvet:real;prostoe:boolean;
begin
writeln('Введи n:');
readln(n);
prostoe:=true;
for var i:=2 to n-1 do if n mod i = 0 then
begin
writeln(n, ' Не простое, делится на ',i);
prostoe:=false;
exit;
end;
if prostoe then writeln(n, ' Простое');
end.

0 0

4 года назад

В какой системе системе исчисления это выражение? вообще не поняла сути вопроса

a1254

Ну, во-первый Системы Счисления, а,потом, смотри, если есть 9, то это как минимум 10 СС, 16 сс не может, т.к 2+9 было бы В

0 0

4 года назад

1) Выберите утверждения, относящиеся к недостаткам растровой графики: а) сложно автоматизировать ввод в компьютер; б) нет информ

Игорь1488

1б

2г, хотя некоторые проги (типа АдобФлеш) заливают и незамкнутые

3 не знаю, наверное 5 - 4 точки углов и цвет заливки

0 0

4 года назад