1. program z1; var x:real; begin writeln('Input x: '); readln(x); if (x<9) then begin x:=(x*x)/(x-9); writeln('New x: ',x); end else begin x:=Sin(x); writeln('New x: ',x); end; end. Поясню выбор типа х: вещественный, т.к. функция синуса вернет не целое число. 2. program z2; var a,b,c:real; begin writeln('Input a, b, c:'); readln(a,b,c); writeln('Числа, удовлетворяющие условию:'); if((a>1) and (a<3)) then writeln(a); if((b>1) and (b<3)) then writeln(b); if((c>1) and (c<3)) then writeln(c); end.
20*x-обём файла винтика 20*x*0.2+20x=24x-обём шпунтика 20x-4x=16x-осалось у винтика когда шпунтик начал сказать свой файл 16x/(x/2)=32 мин будет у витика 24x/(x/2)=48мин у шпунтика 48-(32+4)=12мин разница времени ответ 12
Pop3 так как это <span>стандартный </span>интернет-протокол прикладного уровня, используемый клиентами электронной почты д<span>ля обработки входящих сообщений </span>
Const N = 40; var a:array[1..N] of integer; i,j,s:integer; st:real; begin for i:=1 to N do readln(a[i]) s:=0; st:=0; for i:=1 to N do if (a[i]>9)and(a[i]<100)and(a[i] mod 2=0) then begin s:=s+1; st:=st+a[i];end; if s>0 then writeln('Среднеарифметическое = ',st/s:4:1) else writeln('Искомых чисел нет'); end.