Var a:array[1..20] of integer;
n,i:integer;
begin
for i:=1 to 20 do begin
a[i]:=random(-150,1000);
if (a[i] mod 5=0) and (a[i] mod 2<>0) then n+=1;
write(a[i],' ');
end;
writeln();
writeln('Искомых элементов: ',n);
end.
Program n1;
label t;
var a,b,c: integer;
begin
readln(a,b,c);
if a<>b then if abs(a)=abs(b) then goto t;
if a<>c then if abs(a)=abs(c) then goto t;
if b<>c then if abs(b)=abs(c) then goto t;
writeln('нет');
t:
writeln('есть');
end.
В любой системе счисления число 10 равно основанию этой системы счисления.
Поэтому 10(2)+10(8)+10(10)+10(16)=2+8+10+16=36(10)
Материнская плата, центральный процессор, оперативная память, блок питания, жесткий диск, видеокарта, CD/DVD привод.