<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№8</u>
begin
var (N,s):=(ReadInteger,0);
while N>0 do begin
s+=N mod 10;
n:=N div 10
end;
Writeln(s)
end.
<u>Пример</u>
15023
11
<u>№9</u>
begin
var (N,k):=(ReadInteger,0);
while N>0 do begin
if N mod 10=0 then k+=1;
n:=N div 10
end;
Writeln(k)
end.
<u>Пример</u>
1430020
3
Алг перевертыш
нач
цел a,a1,b,i,k
ввод a
k:=0
b:=a
a1:=0
нц пока a>0
i:=mod(a,10)
k:=k+1;
a:= div(a,10)
кц
нц пока b>0
a1:=a1+mod(b,10)*10**(k-1);
b:=div(b,10);
k:=k-1
кц
вывод " новое число =", a1
кон<span>
</span>
Program ciri;
var x,y:real;
begin
readln(x);
writeln('x=',x);
if x>=3 then
y:=x else
y:=x*x;
writeln('y=',y);
<span>end.</span>
Ответ:
Объяснение:
1. read(a,b,c); вместо read('a,b,c');
2. Добавить скобку после 4ас f: =(-b+sqrt(sqr(b)+4*a*c))/(2*a)+abs(c);
На кодирование символов алфавита первого племени понадобится
100 * Log(N)/Log(2) бит информации
На кодирование символов алфавита второго племени понадобится
100 * Log(2N)/Log(2) = 100 + 100 * Log(N)/Log(2) бит информации
А разность между этими величинами - ровно 100 бит