Даны вещественные x, y, z. Вычислить в паскале а, если а=(sqr(x)+3y-sqrt(z))/(ysin(z)+exp(abs(x)))

Знания

Информатика

1 ответ:

kristina17084 года назад

0 0

Var x,y,z: Real;
Begin
Write('Enter x: ');
Read(x); Write('Enter y: ');
Read(y); z:=(sqr(x)+3*y-sqrt(z))/(y*sin(z)+exp(abs(x)));
Writeln(z);
<span>end.</span>

Читайте также

Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a, b,c. Схема циклического обмена a-->b--

nn061298

<span>var a,b,c,d:integer
begin
readln(a,b,c);
d:=a;
a:=b;
b:=c;
c:=d;
writeln(a,' ',b,' ',c);
end.
</span>

0 0

4 года назад

Помогите составить программу, которая посчитает сумму натуральных чисел из промежутка от 1 до 100, которые делятся на 17 и сумма

meri

{сумма натуральных чисел из промежутка от 1 до 100,
которые делятся на 17 и сумма цифр, которых не
превышает 7. Можно перебором}
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 17=0) and (i div 10 + i mod 10<7) then
s:=s+i;
writeln(s);
end.
{результат 51}

{
Можно оптимизировать
в цикле изменив for i:=1 to 100 do
на
for i:=17 to 100 do}

{2 вариантө оптимальнее - перебираем только числа кратные 17]
var i,s:integer;
begin
s:=0; i:=17;
while i<=100 do
begin
   if (i div 10 + i mod 10<7) then
   s:=s+i;
   i:=i+17;
end;
writeln(s);
end.

0 0

4 года назад

Вычислить y = x +1 для x от 0 до 10 вывести значение y. Помогите)))

Движуха [99]

Program;
var i,x,y:integer;
Begin
for i:= 0 to 10 do;
begin;
read(x);
y:=x+1;
end;
writeln(y);
End.

0 0

4 года назад

Сколько цветов будет содержать палитра, если каждый базовый цвет кодировать пятью битами?

Михаил Зверев [33]

2^5 = 32
Ответ 32^3 = 32768

или 2^(5+5+5) = 2^15 = 32768

0 0

1 год назад

Написать программу в которой замена производится по такому правилу: если число делится на 2, то оно умножается на 4. Если нет -

Abdu2011

//PascalABC.Net v3.1

var n:integer;

begin

readln(n);

if n mod 2 = 0 then n:=n*4 else n:=n+1;

writeln(n);

end.

0 0

4 года назад

Даны вещественные x, y, z. Вычислить в паскале а, если а=(sqr(x)+3*y-sqrt(z))/(y*sin(z)+exp(abs(x)))

Даны вещественные x, y, z. Вычислить в паскале а, если а=(sqr(x)+3y-sqrt(z))/(ysin(z)+exp(abs(x)))