Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=sqrtA
else write(a) ;
Write(A);
End.
//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
Вам нужно подключить библиотеки iostream и cmath.
там, где у вас две строки #include, впишите в первую <iostream>
и во вторую <cmath>. Должно получиться так :
#include <iostream>
#include <cmath>
I=k*i
I - информационный объём;
k - количество символов;
i - количество информации, которое содержит 1 символ;
I=160 (байт);
i=8 (бит) = 1 (байт);
k=I/i=160/1=160 (символов);
Ответ: 160 символов.
Var a: real;
begin
write('Введите сторону куба = ');
readln(a);
writeln('Объем = ', a * a * a);
writeln('Площадь поверхности = ', 6 * a * a);
end.