Var a, b, k:integer;
begin
readln(a);
readln(b);
if (a+b)>10 then
writeln(2*a*b)
else
if (a>b) then
begin
k:=a;
a:=a+b;
b:=k-b;
end
else
begin
k:=b;
b:=b+a;
a:=k-a;
end;
writeln(a, ' ', b);
end.
1.Устройство компьютера 1) Питание 2) Процессор 3) Видеокарта 4) Память 5) Материнская плата 6) Винчестер 7) Корпус 8) Дисковод
2)
1. Питание- Вторичный источник электропитания, предназначенный для снабжения узлов компьютера электроэнергией постоянного тока путём преобразования сетевого напряжения до требуемых значений.
2. Процессор- это основной элемент компьютера, с помощью которого обрабатывается информация, находящийся как в свободной памяти, так и в памяти других устройств.
3. Видеокарта- это устройство которое хранит содержимое памяти компьютера.
4. Память- это часть вычислительной машины, или среда для хранения данных компьютера.
5. Материнская плата- это печатная плата,являющаяся основой построения модульного устройства.
6.Винчестер- это жёсткий диск, который является основным накопителем данных в большинстве компьютерах
7. Корпус- это системный блок, наполненный аппаратами обеспечения для создания компьютера.
8. Дисковод- Устройство компьютера,позволяющее осуществить чтение и запись информации на съёмном диске.
Var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 2 * x;
s := a;
i := 0;
repeat
i := i + 1;
a := a * 4 * x * x / (2 * i - 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', Sinh(2*x):15:5);
x := x + h;
until x >= xk;
end.
Var s,s1:string;
i:integer;
begin;
readln(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
<span>end.</span>