Что относится к вводу и выводу информации в компьютере одновременно?

Принтер,сканер, монитор

Дисковод жестких дисков, дисководы гибких дисков, модемы и т.д.

// pascalabc.net 3.0, сборка 1088 var   x,y,t: real;   i: integer; begin   for i: =0 to 10 do begin       x: =i/10;       t: =x*sqr(x)+0.5;       y: =cos(t)/sin(t);       writeln('x=',x: 3: 1,', y=',y)       end end. тестовое решение: x=0.0, y=1.83048772171245 x=0.1, y=1.82614498429306 x=0.2, y=1.79618385002611 x=0.3, y=1.71852553644354 x=0.4, y=1.58093809305141 x=0.5, y=1.38603127549996 x=0.6, y=1.1494046625412 x=0.7, y=0.890956788596857 x=0.8, y=0.625274002791611 x=0.9, y=0.355759266063965 x=1.0, y=0.0709148443026524

Напишу "современный" вариант решения. хотя бы для того, чтобы показать, насколько современные способы решения в том же паскале ушли вперед по сравнению с тем временем когда придумывались эти // pascalabc.net 3.0, сборка 1088 begin   var s: =readstring('введите строку: ');   var myset: =s.where(x-> x in ['a'..'z']).distinct;   writeln(myset) end. тестовое решение: введите строку: this is an example text. [t,h,i,s,a,n,e,x,m,p,l] а вот если воспользоваться "традиционной" работой с множеством, исходный порядок следования символов будет нарушен: // pascalabc.net 3.0, сборка 1088 var   myset: set of char; procedure addtoset(s: string; var pset: set of char); begin    foreach var c in s do       if c in ['a'..'z'] then include(pset,c) end; begin   var s: =readstring('введите строку: ');   addtoset(s,myset);   writeln(myset) end. тестовое решение: введите строку: this is an example text. {n,e,m,l,t,s,a,i,h,p,x}