Const
c1='Математический анализ';
c2='Алгебра и геометрия';
c3='Информатика';
c4='История';
c5='Философия';
var
o: text;
begin
AssignFile(o, 'Output.dat');
Rewrite(o);
write(o,c1,'|',c2,'|',c3,'|',c4,'|',c5);
CloseFile(o)
end.
1.
37*37*2=2738
2.
161*161=25921
4 Кбайт = 4096 байт = 32768 бит
32768 бит/25921=1.26
1 Cvet
p.s. ne uveren 2
<span>1.Директор - учителя, 2. учитель - ученики, 3. пилот - самолёт, 4. вожак - стая, 5. пастух - коровы.</span>
Program pr;
var x,y: integer;
begin
x:=3;
y:=7*x*x+5*x+2;
writeln('При х=',x,', у=', y);
x:=2;
y:=7*x*x+5*x+2;
writeln('При х=',x,', у=', y);
end.