составьте программку для вычисления площади круга при знаменитом радиусе (радиус вводится

program krug;

var s,pi,r:real;

begin

writeln('Введите значения радиуса круга');

readln(r);

pi:=3.1416;

s:=pi*r*r;

writeln('Площадь круга одинакова ',s);

end.

Ответ:

include lt;iostreamgt;

using namespace std ;  

int main ()

int i ;

double S;

cin gt;gt; i ;  

S=3.1416*r*r;

cout lt;lt; S;

return 0;  

Изъясненье: