Информатика паскаль. Решите

Знания

Информатика

1 ответ:

lenika58 [21]3 года назад

0 0

var y,x,z: real;

begin

readln(x,y);

z:=ln(abs((y-sqrt(abs(x)))*(x-y/(x+x*x/4))));

write(z);

end.

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

Хелп с пк. Что это я не могу передвинуть не куда ток туда где эта полоса..

Ольгитта2307

Правой кнопкой мыши по рабочему столу - Вид - Снимите галочку с "Выровнять по сетке"

0 0

4 года назад

Вычислите ((1 & 0) v 1) & (1 v A)

Fotija

Получиться 1 и A= A
Ответ: А

0 0

4 года назад

На одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщения об их количестве

panda0777

Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
end.

0 0

4 года назад

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

Сообщение содержит 256 символов и занимает объемом 1/8 Кбайта информации. Какова мощность исползованного алфавита?

ahrenettttt

1/8 кб = 1024 бита
1024 / 256 = 4 бита весит 1 символ
2^4 = 16 символов

0 0

1 год назад

как разделить столбиком премер 32436/159 помагите очень надо

Мама Мила [47]

32436/159

0 0

4 года назад