program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var
s1,s2: string;
begin
try
s1:='00000000';
s2:='00000000';
if s1=s2 then
writeln('Равны')
else
writeln('Не равны');
Sleep(100000);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var
s1,s2: string;
begin
try
s1:='00000000';
s2:='00000001';
if s1=s2 then
writeln('Равны')
else
writeln('Не равны');
Sleep(100000);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Вольфрам с добавлением диоксида ванадия VO2 отражает инфракрасное излучение, при возрастании температуры выше 29 °C, блокируя солнечное излучение через окно при высоких внешних температурах.