Program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
(6*1024*8)/6144=8 бит - 1 символ
N=2^8=256 символов
Самое 1 не подходит , ибо остальные это продукты майкрософт офис, 2 для презентаций, 3 это ворд для текстовых документов , а 4 это для работы с базой данных
var a,b,c,y,x,z:real;
begin
readln(a,b,c);
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('y = ',(a-2)/(b*b-c):0:3);
writeln('x = ',(b*b+4*a*c)/(2*a):0:3);
writeln('z = ',(a/b)+(c/a)-((a*b+c*c)/(b*c)):0:3);
end.