Const n=4;
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-i do write('-');
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
for j:=1 to n-i do write('-');
writeln;
end;
end.
Результат:
<span>---1---
--121--
-12321-
1234321</span>
Для кодирования одного из 16 предметов требуется log(2)16 = 4 бита.
Например, 0000 - математика, 0001 - русский язык и т.д.
Для кодирования всего расписания - 7*6*4 = 168 бит.
Uses crt;var f,a,d,n,z:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число D');readln (d);writeln ('Введите число N');readln (n);writeln ('Введите число Z');readln (z);F:=(z*a+d*(n-1))/2;writeln('Ответ: ',f:2:1);end.
63
49
8506
.........................................................