Begin
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;<span>end.</span>
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.
Изи , Pentium G2020 , 2.9GHz - процессор
LGA1155 - сокет(socket)
ASUS P8B75- M LX PLUS - материнская плата
Intel B75 Chipset - чипсет процессора
Intel Pentium G2020 2.9GHZ - процессор
2048Mb DDR3 - оперативная память
250.0Gb - скорее всего либо жёсткий диск , либо ссд , (Hdd , либо SSD)
VENTO TA863 - блок питания
ATX/sound/LAN - скорее всего звуковая и сетевая карта
Какой класс?
На языке pascal ABC .NET:
var k:integer;
Begin
k:=1;
for var i:=1 to 9 do
if (i mod 2)=0 then else k:=k*i;
write(k);
end.