Var x, y:real;
Begin
Readln(x) ;
Y:=(sqr(a) +1)/sqrt(sqr(a)+1)
Write(y);
End.
ВПУ, число букв нечётно. АВПУ, заменяем буквы. ЯБОТ, переписываем. <em>ТОБЯ
</em>ЯТОБ, число знаков чётно. ЯТОБО, заменяем буквы. ЮСНАН, переписываем: <u>НАНСЮ</u>
Получается так)
Type
LinMass = array [1..1000] of Integer;
var
A: LinMass;
N, i, j: Integer;
begin
Write('Количество элементов массива: ');
ReadLn(N);
for I := 1 To N Do
begin
Write('Введите A[', I, '] ');ReadLn(A[i]);
end;
i := 1;
while (i <= n) do
if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
for j := i + 1 to n do
A[j - 1] := A[j];
n := n - 1
end
else i := i + 1;
for I := 1 To N Do
write(a[i]:6);
end.
Каждый элемент может находиться в трёх различных состояниях. С помощью табло, состоящего из пяти таких элементов, можно передать 3^5 = 243 сообщения.