program sq;
var r1,r2,r3:real;
function square(r1,r2,r3:real):real;
begin
square:=pi*((r1*r1)/2+(r2*r2)-(r3*r3)*2);
end;
begin
write('radius 1 ');
readln(r1);
write('radius 2 ');
readln(r2);
write('radius 3 ');
read(r3);
write('square is ',square(r1,r2,r3):1:2);
end.
Задача 1
Дан массив целых чисел состоящий из 100000 чисел. Написать многопоточное приложение которое на 10 процессах вычислит: Сумму отрицательных элементов массива.
Задача 2
Написать многопоточное приложение которое на 10 процессах реализует задачу:
Дана матрица размера M × N. Найти количество ее столбцов, элементы которых упорядочены по убыванию.
М=100000
N=50000