Program n1;
var a: integer;
begin
readln(a);
writeln(a+1);
writeln(2*a);
writeln(a*a);
writeln(a*a*a);
writeln(sqrt(a));
end.
Ответ:
1)
Begin
Read(x1,y1,x2,y2);
Write(sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)));
End.
2)
Begin
Read(a,b,c);
P:=(a+b+c)/2;
Write(sqrt(p*(p-a)*(p-b)*(p-c)));
End.
Символьная- около 1950 года
пиксельная- около 1980 года
линейная- низнаю
геометрическая- 2008-2009 года, но исходя из этих 3, то символьная, т.к они идут последовательно
1) 32*40*70*16/8=179200 байт = 175Кбайт
2)
Ответ: 384 досье