Uses System;
var x: real;
{ процедура функция }
function y( x: real): real;
var a,b,c: real;
begin
a:=2.8; b:= -0.3; c:=4;
if x<1.2 then Result:=a*Sqr(x)+b*x+c
else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1)
else Result:=a/x+Sqrt(x*x+1);
end;
{ основная программа }
begin write('Задайте значение x ');
readln(x);
writeln('Значение функции y = ',y(x));
end.
<span>
</span>
Можно сказать точно, если изображение без сжатия (типа bmp)
На один пиксел приходилось 9 бит, теперь требуется 3, следовательно в 3 раза
Программное обеспечение, софт
а если главная программ, на которой пишутся остальные, то это- операционная система
Var ma,kol,bol,n,x,i:integer;beginread(n);for i:=1 to n do begin read(x); if x<30 then inc(bol); if x>ma then ma:=x; end;writeln(ma);if bol>0 then writeln('YES') else writeln('NO'); end.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadSeqIntegerWhile(x->x>0).ToArray;
write('Периметр ', a.Count,'-угольник равен ',a.Sum);
end.