Изветсны оценки по информатике 15 студентов группы. сформировать случайным образом оценки из диапазона [2; 5], вывести их на экран. определить общую успеваемость группы по предемету общая_успеваемость = количество_студентов - количество_"2"/количество_студентов * 100%

Var i,count: integer; a: array [1..15] of integer; begin randomize(); for i: =1 to 15 do   begin   a[i]: = 2 + random(4);   if a[i] = 2 then count: = count + 1;   end; for i: =1 to 15 do write (a[i], ' '); writeln; writeln('общая успеваемость = ', (15-count)*100/15: 0: 3, '%'); end.

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.