Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
Var
a,b,c,S,P;
begin
writeln ('Введите А ');
readln (a);
writeln ('Введите B ');
readln (b);
c:=<span>sqrt(a*a+b*b);</span>
P:=a+b+c;
writeln ('Площадь треугольника равна --> ',P);
end.
Общие
производительность труда (в целом, по промышленности и сельскому хозяйству, по отдельным отраслям и видам производств);
капиталоемкость единицы ВВП или конкретного вида продукции;
фондоотдача единицы основных фондов;
материалоемкость единицы ВВП или конкретных видов продукции.
показатели сравнительной конкурентоспособности, разработанные МВФ
удельные затраты на заработную плату (в расчете на единицу продукции);
нормализованные удельные затраты на рабочую силу (в расчете на единицу продукции), т. е. выпуск продукции на отработанный человекочас;
уровень полных удельных издержек по элементам добавленной стоимости, т. е. показатели удельных расходов всех первичных факторов производства;
сравнительный уровень оптовых цен промышленности;
<span>сравнительный уровень экспортных цен промышленных товаров.
</span>
Var v, n, p: integer;
begin
n := 365;
v := 80;
p := Trunc(2.5 * 1024);
writeln('Скорость ', v, ' символов в секунду');
writeln('Всего ', n, ' страниц');
writeln('Объем ', p, ' символов на странице');
n := n * p;
writeln('Всего ', n, ' символов');
n := n div v;
writeln('Будет печатать ', n, ' секунд');
writeln('Или ', n div (60*60), ' ч. ', (n mod (60*60)) div 60, ' мин. ', n mod 60, ' сек.');
<span>end.</span>