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<span>);
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<span>);
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(); </span></span>
1-b
2-b
3-a
4-a
5-a
6-a
вроде так
Выравнивание относительно окружности или другого объекта. Чтобы их центы находились на одной и той же невидимой линии.
В машиностроении при обработке валов делают специальные отверстия на концах для центрирования. Это нужно для того, чтобы при обработке ось симметрии вала не смещалась относительно центра вращающего заготовку (вал).
x = 4, что соответствует условию x < 5, следовательно, y = x - 3, y = 1
Ответ: y = 1
1. Объем файла = 16*2048 бит = 16*2048/8 байт = 2*2048 байт = 2*2048/1024 Кбайт = 4 Кбайта.
2. 60 Кбайт = 60*1024 байт = 60*1024*8 бит
Время = 60*1024*8/3072 = 160 сек
3. S1 = t*v1, S2 = t*v2
S1/S2 = v1/v2, S2 = S1/(v1/v2)
v1/v2 = 1536/768 = 2
S2 = 80/2 = 40 Кбайт
4. S1 = t1*v, S2 = t2*v
S1/S2 = t1/t2, S2 = S1/(t1/t2)
t1/t2 = 60/75 = 4/5 = 0,8
S2 = 2000/0,8 = 2500 Кбайт
5. S1 = t1*v, S2 = t2*v
S1/S2 = t1/t2, t2 = t1/(S1/S2)
S1/S2 = 3/4 = 0,75
t2 = 2*60/0,75 = 160 сек