1
4 дороги = 2^2 т.е. 2 бита информации
2
16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт
Program ZADACHA;
var a,b,c,d,k:integer;
begin
c:=0;
k:=0;
d:=0;
repeat
begin
readln(a);
b:=a;
c:=c+1;
if (a<-3)
then
begin
d:=b+a;
k:=k+1;
end;
end;
until c=8;
writeln(d);//ETO SUMMA
writeln(k);//Eto KOLICHESTVO
readln;
end.
Program z1;
var a:array[1..10] of byte;
i,j,k,r:byte;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(100);
write(a[i],' ');
a[i]:=(a[i] div 10)+(a[i] mod 10)
end;
k:=1;writeln('');
for j:=0 to 18 do begin
i:=k;
while i<=10 do begin
if a[i]=j then begin
r:=a[k];a[k]:=a[i];a[i]:=r;
write(a[k],' ')
end;
i:=i+1
end
end;
readln
end.
Program <любое название на английском>
uses crt;
var n:integer;
begin
read(n);
for n:=1 to 20 do writeln(n, '$= ', 65*n, 'рублей');
end.
Вроде так.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.
<h2>Пример</h2>
Наша Маша громко плачет уронила в речку мячик
8