2) <span>Обеспечение бесперебойной работы системы жестких дисков
Если один из жестких откажет, второй будет работать.. и они выполняют друг на друга резервное копирование данных</span>
1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.
uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');
writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');
if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');
end.
<span>import random
a,b = map(int,(input('input a,b ').split()))
if a % b == 0 or b % a ==0:
print('1')
else:
print(random.randint(10,100))
</span>