//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.
<em><u>Тестовое решение:</u></em>
Радиус шара= 25
Объем шара равен 65449.847
#include<iostream>
using namespace std;
int main() {
int a;
int b;
int n=0;
cin >> b;
for (int i = 1; i <=b; i++) {
a = i;
n+=a;
}
cout << n << endl;
system("pause");
}
Var
A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
Begin
Max2:=Max1;
Max1:=A;
End;
Until A=0;
WriteLn(Max2);
End.
Родовое понятие это "компьютерный символ"
поставь стрелочки от всех слов к "компьютерному символу"
Хранить нужные объекты, упорядковывать информацию.