Program gp;
uses crt;
var r: real;
begin
write('ввидите радиус шара : ');
readln(r);
writeln('обьем шара: ', 4/3*pi*r*r*r: 0: 2);
writeln('площадь шара : ',4*pi*r*r: 0: 2);
readln;

end.
построить блок схему​

astashkin222    1   25.11.2019 15:15    1