//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
3x + 3x = 10x;
Если x = 0, то основание системы любое, иначе:
(3+3)x = 10x
3 + 3 = 10
Это будет выполнятся только в 6сс.
Ответ: с)
<span>Язык: Pascal
</span>
Var
a,b:integer;
Begin
read(a,b);
write(a+b);
End.
<span>Язык C++
</span>
<span>#include <iostream>
using namespace std;
int main() {
int a,b;
cin >> a;
cin >> b;
cout << a+b;
return 0;
}
Язык JavaScript
var a = Number(prompt());
var b = Number(prompt());
alert(a+b); // или console.log(a+b);
ИЛИ
alert( Number(prompt()) + Number(prompt()) );
Язык Python
a = int(input())
b = int(input())
print(a+b)
ИЛИ
print( int(input()) + int(input()) )
</span>
Ввод для любой программы выше:
2
5
Вывод:
7
<span>BORDER=0 CELLSPACING=0 CELLPADDING=0</span>