В программе нужно заменить в цикле след. строки :
for i:=1 to n do
for j:=i+1 to n do a[i,j]:=0;
заменить на строки
for i:=2 to n do
for j:=1 to i-1 do a[i,j]:=1;
N= 8
Q= 600бит
Nc - ?
Решение:
N=2
8= 2 в 3 степени
I= 3 бит/символ
600бит : 3= 200 символов
Program zadanie;
Var a,b,c:real;
n:integer;
Begin
Writeln('Введите количество учеников');
Readln(n);
Writeln('Введите количество пятёрок в классе');
Readln(a);
a:=n/100*a;
Writeln('Введите количество четвёрок в классе');
Readln(b);
b:=n/100*b;
Writeln('Введите количество троек в классе');
Readln(c);
c:=n/100*c;
Writeln('Процент пятёрок в классе:',a);
Writeln('Процент четвёрок в классе:',b);
Writeln('Процент троек в классе:',c);
End.
Высказывание соответствует для имени Елена (первая буква е-гласная, четвертая буква н-согласная)