Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.
Формулировка "записанное в четырёхбитной кодировке" означает, что на каждый символ отводится по 4 бита (вес символа). Для расчета информационной емкости сообщения нужно кол-во символов (и пробельные тоже) умножить на вес одного символа.
В слове "Литература" 10 символов. То есть информационная емкость сообщения = 10*4 = 40 бит.
<span>1920x1080 расшерение екрана </span>
Var
f,b,a,i:longint; // описание переменных
begin
write('Write b, a: ');
readln(b,a); // Присваивание b, a числа
f:=1; // Присваивание f=1
for i:=1 to b do // Нахождение b! (факториала)
f:=f*i;
writeln('x= ',f*(1/sqr(a)):0:2); // вывод результатов(выполнение форумулы)
readln
end.
Pascal
var n,a:integer;
s,x,si:real;
begin
readln(x,n);
si:=sin(x);
for a:=1 to n do
begin;
s:=s+si;
si:=sin(si);
end;
writeln(s);
end.