Var a:real;BeginWrite('Сторона равностороннего треугольника: ');ReadLn(a);WriteLn('P = ',a*3);WriteLn('S = ',a*a);End.
Сu(OH)₂→CuO+H₂O
n(CuO)=40/80=0.5моль
n(CuO):n(Cu(OH)₂)=1:1=0.5моль
n(CuO):n(H₂O)=1:1=0.5моль
m(Cu(OH)₂)=0.5*98=49г.
m(H₂O)=0.5*18=9г
<em>Проверено на fpc 3.0.0 </em>
const
m=6; // строк
n=9; // столбцов
var
a:array[1..m,1..n] of integer;
i,j,k1,k2,s,k:integer;
begin
Writeln('Введите границы диапазона: '); Read(k1,k2);
Randomize;
s:=0; k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99; // [-99;99]
Write(a[i,j]:4);
if (a[i,j]>=k1) and (a[i,j]<=k2) then begin
Inc(k); s:=s+a[i,j]
end
end;
Writeln
end;
Writeln('Отобрано элементов: ',k,', их сумма равна ',s)
end.
<u>Пример</u>
Введите границы диапазона:
-20 55
-2 -52 -11 -12 70 -15 90 -51 75
-54 -92 32 54 -72 -24 -40 -37 -20
0 -14 -79 -1 -39 -34 39 47 34
-91 -98 -68 -16 -56 -55 97 66 59
-48 -67 -34 92 -77 12 -67 -23 -90
75 85 65 -98 -58 -53 -6 34 33
Отобрано элементов: 18, их сумма равна 188
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.
<span>1.
</span>На Рабочем столе размещаются небольшие картинки
— значки и ярлыкиобъектов<span> (ярлык — это картинка с небольшой стрелочкой в нижнем левом
углу). Они обеспечивают быстрый доступ к объектам — различным устройствам и
программам компьютера, а также текстам, рисункам и другим документам, созданным
с помощью компьютерных программ.
ЗначокМойкомпьютер обеспечивает доступ к
различным устройствам компьютера. В Корзину отправляется «мусор» — всё то, что уже не нужно хранить в памяти
компьютера. А значок Мои документы поможет быстро найти созданные вами рисунки
и другие документы. Если ваш компьютер связан с другими компьютерами, то на
Рабочем столе обязательно присутствует значок <span>Сетевое окружение.</span><span></span></span>