===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y := x * x + 1.8;
var k: real;
if y < 10 then
k := Sin(y)
else if y > 20 then
k := Tan(y)
else
k := y * y;
Print(k)
end.
1) все идет по степеням двойки. Чтоб закодировать число 79, уже надо закодировать 128 чисел = 2^7 = 7 бит
2) 1.5 кб = 1.5*1024*8 бит = 12288 бит
12288 / 3072 = 4 бита на символ
значит мощность 2^4 = 16
3) 8*8=64 возможных варианта или мощность алфавита.
64 = 2^6 -> 6 бит на один ход
Var H,s,p,x,z:real;
begin
readln(H,s,p);
p:=s/100;
p:=p*15;
z:=H*s+p;
writeln(z);
<span>end.</span>
/<u>/ PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.
<u>Примеры</u>
Введите число: 121.121
True
Введите число: 12.11999
False