Program n1;
<span>var a,b,c,s,p:real;
</span><span>begin
</span><span>readln(a);
</span><span>readln(b);
</span><span>readln(c);
</span><span>if (a+b>c) and (a+c>b) and (b+c>a) then
</span><span>begin
</span><span>p:=a+b+c;
</span><span>s:=sqrt(p*(p-a)*(p-b)*(p-c));
</span><span>writeln('периметр=',p);
</span><span>writeln('площадь=',s);
</span><span>end else
</span><span>writeln('треугольник не существует');
</span><span>end.</span>
Человек получает инвормацию от головы например сначала он читает книгу потом он берет отуда правильную инвормацыю (новую) потом мы ее переробатываем в голове и пишим в тетрадь эту запись.Человеу получает информацию от нотбука (например ) что такое автомобиль это транспортное средство.Это мы переробатывае и получаем информацию и запаминаем это слово и потом запоминаем и когда у тебя спрашывают что такое машына? ты говориш транспортное средство.И ЭТО НАЗЫВАЕТСЯ МЫ ПОЛУЧАЕМ ИНВАРМАЦЫЮ ОТ ВСЕГО ЛКРУЖАЕШЕГО МИРА !!!
program zadacha;
var
x,y:real;
begin
writeln('vvedite x');
readln(x);
if x>0 then y:=-2+3*x else y:=8+x;
writeln('y=',y);
end.