Const n=9;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do for j:=1 to n do a[i,j]:=0;
for i:=1 to n do a[i,i]:=n div 2+n mod 2-abs(n div 2+n mod 2-i);
for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln end
<span>end.</span>
Program a;
var x,a,b,c: real;
begin
write('x,a,b,c = ?');
read(x,a,b,c);
x:=exp((a)*2)+3*exp((b)*2)-18*a*c;
writeln('x=',x);
<span>end.
(Паскаль)</span>
<span>1600*1200*24=(в битах) и разделим полученное число на 2^23 - будут Мбайты (т. е. на 1024*1024*8) и подобрираем карту</span>
Var a,b,c:integer;
begin
writeln('Введите три числа:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln('Треугольник равносторонний')
else writeln('Треугольник не равносторонний (а может и не треугольник)');
end.
Пример:
Введите три числа:
5 5 5
Треугольник равносторонний
1.Обычный шрифт.
2.Жирный.
3.Курсивный.
4.Подчеркнутый.
5.Жирный,курсивный.
6.Жирный,подчеркнутый.
7.Курсивный,подчеркнутый.