Var
k, p, s: integer;
begin
readln(k, p, s);
k := k * (100 + p);
writeln((100 * s) div k);
end.
Да, в целом это расписание соответствует состоянию работоспособности школьников.
Улучшить: при высокой работоспособности ставить более сложные предметы, а при низкой — более легкие.
Например:
1) История
2) Математика
3) Русский язык
4) Информатика
5) Иностранный язык
6) Музыка
//1
Var
f:text;
s,s1:string;
begin
readln(s);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
s:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
//2
Var
f:text;
s1,s2:string;
begin
assign(f,'text1.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s2);
close(f);
s1:=s1+s2;
assign(f,'text1.txt');
rewrite(f);
write(f,s1);
close(f);
end.
1. 1 символ кодируется 16-ю битами. (16=2^4)
3 *2^13 бит : 2^4 бит = 3*2^9 =3*512 =1536 символов в тексте.
2. 1 символ кодируется 8-ю битами.
1 байт =8 бит
1 Кбайт =1024 байт
F = 5*25*40*8 = 40 000 бит = 5 000 байт = 4,8828 Кбайт≈ 5 Кбайт