Напишу с объяснением:
n = 3;
s = 0 + 6 = 6;
n = 4;
s = 6 + 8 = 14;
n = 5;
s = 14 + 10 = 24;
n = 6;
s = 24 + 12 = 36;
n = 7
s = 36 + 14 = 50.
Если мощность алфавита N=256 символов, значит один символ "весит" i=8 бит=1 байт, т.к.N=2^i
Информационный объем текста=количество символов в тексте*"вес" символа ( I=K*i). Отсюда: K=I/i=1.5Кбайта/1байт=1.5*1024=1536 символов
Var a,des,ed,raznost:int64;
begin
read(a);
ed:=a mod 10;
des:=(a mod 100) div 10;
raznost:=des-ed;
write(raznost);
end.
1) program znanija2;
var speed, A, X:integer;
time:real;
begin
readln(A);
readln(X);
speed:= A * 3;
time:= X / speed;
writeln(time);
end.
2)
program znanija3;
var P:integer;
tax, rest, wages, answer:real;
begin
read(P);
tax:=(P*70)/100;
rest:= P - tax;
wages:= (rest*70)/100;
answer:= wages / 8;
writeln(answer);
end.
прогони программу пошагово в PascalABC, поймешь как все работает.