Наибольший объём информации человек получает при : 1)органов слуха 2)органов зрения 3)органов осязания 4)органов обоняния

Органов зрения,кажется

Uses crt; var a,b,c,d: integer; proc: real; beginclrscr; write('введите кол-во «5» | '); readln(a); write('введите кол-во «4» | '); readln(b); write('введите кол-во «3» | '); readln(c); writeln('======================'); d: =a+b+c; writeln('всего оценок: ',d); writeln('======================'); writeln('*   из них   *'); proc: = (a*100)/d; writeln('«5» - ', proc: 0: 2,' %'); proc: = (b*100)/d; writeln('«4» - ', proc: 0: 2,' %'); proc: = (c*100)/d; writeln('«3» - ', proc: 0: 2,' %'); end.

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var s: set of integer: =[];   for var i: =1 to 254 do begin       var flag: =true;       var j: =2;       var r: =round(sqrt(i));       while flag and (j< =r) do           if i mod j = 0 then flag: =false           else j+=1;       if flag then           if i mod 4=3 then s+=[i]       end;       foreach var x in s do print(x); end. результат 83 79 167 163 251 71 67 151 239 59 139 227 47 223 43 131 127 211 31 23 199 19 107 103 191 11 7 3 179