Контроллер. и не верьте, кто напишет, что это адаптер. адаптер - это практически разъём, пусть "умный", но разъём.
gorod7
17.12.2020
Var a: array [1..100] of integer; k,n,i: integer; begin k: =0; write ('введите размер: '); readln(n); for i: =1 to n do readln (a[i]); for i: =1 to n do begin if a[i] mod 10=8 then k: =k+1 end; write (k); end.
Panfilov_Anna
17.12.2020
program project2; {$apptype console} uses sysutils,windows; var a,b: array of real; i: byte; cs,sk,da,db: real; n: integer; begin setconsoleoutputcp(1251); randomize; writeln('введите n'); readln(n); setlength(a,n); setlength(b,n); writeln('вектор à'); for i: =0 to high(a) do begin a[i]: =-5+10*random; write(a[i]: 5: 1); end; writeln; writeln('вектор b'); for i: =0 to high(b) do begin b[i]: =-5+10*random; write(b[i]: 5: 1); end; writeln; {скалярные произведения и длинны векторов} sk: =0; da: =0; db: =0; for i: =0 to n-1 do begin sk: =sk+a[i]*b[i]; da: =da+sqr(a[i]); db: =db+sqr(b[i]); end; {косинус} cs: =sk/sqrt(da)/sqrt(db); write('cos(aльфа)=',cs: 0: 3); readln; end.