If a mod 2 <> 0 then
это паскаль
Апдейт (update).................
Разьем для микропроцессора
разъемы шин PCI, PCI-Express
<span>разъемы под оперативную память
</span>BIOS
батарейка
разъемы под жесткий диск с интерфейсом SATA
южный и северный мост (и их радиаторы)
конденсаторы обычные и твердотельные (один дутый)
слева выглядывает чип питания
чип звуковой карты в окружении сопротивлений и диодов
какая-то перемычка (толком не разглядеть)
катушки индуктивности
разъем для питания вентилятора
разъемы для подключения блока питания
несколько диодных мостов
какие-то микросхемы (невидно нужна лупа)
и сам многослойный текстолит на котором этот металлолом держится
Var x,y :real;
begin
write('Введите значение x=');
readln(x);
if (x>-3) and (x<5) then
begin
if x<-1 then y:=3*x
else if x<1 then y:=sin(x)-cos(x)
else y:=x*x+1/2*x-7;
writeln('При x=',x,' y=',y)
end
else writeln('При x=',x,' функция не определена')
<span>end.</span>
<span>Это количество возможных исходов в данном событии</span>