program 1;
uses crt;
var a,b: real;
begin clrscr;
write('vvedite a '); readln(a);
write('vvedite b '); readln(b);
if a> b then begin a: =abs(2*a*b); b: =abs((a+b)/2); end else begin a: =abs((a+b)/2); b: =abs(2*a*b); end; writeln('a= ',a: 0: 2,' ','b= ',b: 0: 2); repeat until keypressed; end.
1) на pascal: var t,i,j: integer; a: array[1..4]of integer; begin for i: =1 to 4 do begin write('vvedite ',i,'-i 4islo: '); readln(a); end; for i: =2 to 4 do for j: =4 downto i do if a[j-1]> a[j] then begin t: =a[j-1]; a[j-1]: =a[j]; a[j]: =t; end; writeln('raspolagaem 4isla v poryadke vozrastaniya: '); for i: =1 to 4 do writeln(a); readln; end. 2) на с: #include < stdio.h> #include < conio.h> void main(void){ int n,a,b,c,d; printf("\nvvedite 4x-znachnoe chislo n: "); scanf("%i", & n); a=n/1000; b=(n-a*1000)/100; c=(n-a*1000-b*100)/10; d=n-a*1000-b*100-c*10; if (a+b==c+d) printf("true"); else printf("false"); getch(); };
Поделитесь своими знаниями, ответьте на вопрос:
2. какие устройства входят в состав системного блока? 3. что такое контроллер? какую функцию он выполняет? 4. как соединены между собой различные устройства пк? 5. как информация, передаваемая по шине, попадает на нужное устройство?