//PascalABC.Net 3.0, сборка 1052 type Balls = class r:real; constructor (rr:real); begin r:=rr end; function VB:real; begin VB:=4*Pi*r*sqr(r)/3 end; end;
var b:Balls; R:real; begin Write('Радиус шара= '); Read(R); b:=new Balls(R); Writeln('Объем шара равен ',b.VB:0:3) end.
void main(){ int a[MAX_SIZE_N][MAX_SIZE_N];// объявили массив srand(time(NULL)); //Заполнение массива for(int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) a[i][j] = MIN_RAND + rand() % MAX_RAND; int sum = 0; //Считаем сумму for (int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) if (a[i][j] % 2 == 1) { sum += a[i][j] * a[i][j]; } }
4,8(91 оценок)
Ответ:
08.04.2021
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016 begin var a:=ArrRandom(15,-10,30); a.Println; var b:=ArrRandom(25,-10,30); b.Println; var ma:=a.Where(x->x.IsEven).Max; var mb:=b.Where(x->x.IsEven).Max; if ma>mb then WritelnFormat('Максимум четных 1-го массива {0} больше 2-го {1}',ma,mb) else if mb>ma then WritelnFormat('Максимум четных 1-го массива {0} меньше 2-го {1}',ma,mb) else Writeln('Максимумы четных элементов в массивах равны ',ma) end.
type
Balls = class
r:real;
constructor (rr:real);
begin r:=rr end;
function VB:real;
begin
VB:=4*Pi*r*sqr(r)/3
end;
end;
var
b:Balls;
R:real;
begin
Write('Радиус шара= '); Read(R);
b:=new Balls(R);
Writeln('Объем шара равен ',b.VB:0:3)
end.
Тестовое решение:
Радиус шара= 25
Объем шара равен 65449.847