RTFM - Read This Finest Manual (Прочтите это замечательное руководство)
Все 6 страниц занимают 8775 байт памяти
1 страница занимает 8775/6 = 1462.5 байт
На 1 строке 1462.5 / 30 = 48.75 байт
По формуле log2(64) = 6 бит уходит на кодировку 1 символа
48.75/6 = 8.125 байт
8.125*8 = 65 бит.
1) var m,n,z,i,b,count: Integer;
begin
writeln('Введите кол-во рядов');
readln(m);
writeln('Введите кол-во мест в каждом ряду');
readln(n);
writeln('Сколько билетов куплено?');
readln(z);
for i:=1 to m do
begin
for b:=1 to n do
begin
Inc(count);
end;
end;
if (z=count) or (z<count) then writeln('Хватит') else
if z>count then
writeln('Не хватит');
end.
2) var a,b,c: Integer;
begin
writeln('Введите числа a и b');
readln(a,b);
c:=a+b;
if c>10 then
begin
a:=a*5;
b:=b*5;
end;
if (c=10) or (c<10) then
begin
a:=a-5;
b:=b-5;
end;
writeln('a - ',a);
writeln('b - ',b);
end.
3) var x: Real;
begin
writeln('Введите x');
readln(x);
if x<4 then writeln(sqrt(x+1));
if x>4 then writeln(2.5*x-2);
if x=4 then writeln(3*(x*x)-1);
end.
Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>
Получится слово вторник.
<span>insert - это вставка одной строки в другую начиная отсчёт с начала слова,мы вставили s1 в строку s в 4 по счёту место,получилось торникг,дальше мы строку s2 вставляем в строку s на 1 место по счёту и получаем слово вторникг,дальше мы операцией delete удаляем 8 по счёту букву то есть букву г,вот так вот получаем слово вторник.</span>