Наверное тег < р> текст </р>. Больше я нечево тут не заметил
А тогда свойства justify будет виравнивать текс по всей ширине
Способ обмена данными между двумя обьектами в том числе между пользавателем и компьютерной програмой называют интерфейсом
Var A,B,n,M:integer;
Begin
Write('A = ');ReadLn(A);
While A<>0 do
Begin
if (A mod 10) mod 2 = 0 then
Begin
M:=1;
For n:= 0 to n do
M:=M*10;
B:=(A mod 10)*M+B;
n:=n+1;
End;
A:=A div 10;
End;
WriteLn(B div 10);
End.
Пример:
A = 123456789
2468
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadReal('a =');
Writeln('y = ', (a**2+10)/(sqrt(a**2 + 1)));
end.
<u>Пример:</u>
a = 1
y = 7.77817459305202
Пусть x - количество двухкомнатных квартир, тогда вероятность того, что кто-то живет в двухкомнатной квартире = x/32.
По формуле Шеннона I = log(2)1/p = log(2)[1/x/32] = log(2)[32/x] = 2
32/x = 2^2; x = 32/4 = 8
Ответ: в доме 8 двухкомнатных квартир.