Какое устройство предназначено для взаимодействия одной эвм с другой? 1) сканер 2) видео карта 3) процессор 4) адаптер

Устройство предназначено для взаимодействия одной эвм с другой нызываетсят прооцессор

Varm: set of byte; u,s,r,a,p,e,c: integer; beginm : = []; for u : = 1 to 6 doif not (u in m) thenbegininclude(m, u); for s : = 0 to 6 doif not (s in m) thenbegininclude(m, s); for r : = 0 to 6 doif not (r in m) thenbegininclude(m, r); for a : = 0 to 6 doif not (a in m) thenbegininclude(m, a); for p : = 1 to 6 doif not (p in m) thenbegininclude(m, p); for e : = 0 to 6 doif not (e in m) thenbegininclude(m, e); for c : = 0 to 6 doif not (c in m) thenbegininclude(m, c); if u * 1000 + s * 100 + s * 10 + r +u * 100 + s * 10 + a =p * 10000 + e * 1000 + a * 100 + c * 10 + e thenwriteln(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e); exclude(m, c)end; exclude(m, e); end; exclude(m, p); end; exclude(m, a)end; exclude(m, r)end; exclude(m, s)end; exclude(m, u)end; writeln(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e); end. {попробуй это}

// pascalabc.net 3.1, сборка 1239 от 08.05.2016 begin   var names: array[1..2,1..5] of string: =       (('саша','женя','таня','лена','вася'),       ('александр','евгений','татьяна','елена','василий'));   var name: =readlnstring('введите краткое имя: ');   var p: =0;   for var i: =1 to 5 do       if name=names[1,i] then begin p: =i; break end;   if p> 0 then writeln(names[2,p])   else writeln('я вас не знаю! ') end. тестовое решение введите краткое имя: лена елена