
02.04.2010, 14:20
|
|
Постоянный
Регистрация: 06.01.2010
Сообщений: 785
С нами:
8602291
Репутация:
256
|
|
Вот так вторая:
Код:
Program kolco;
const p=3.14;
var radius_kolca, radius_otverstia, S_kolca:integer;
begin
Writeln("Vvedite radius kolca");
Readln(radius_kolca);
Writeln("Vvedite radius otverstia");
Readln(radius_otverstia);
if radius_otverstia>radius_kolca then
writeln("radius_otverstia ne mozhet bit bolshe radius_kolca")
else S_kolca:=p*(sqr(radius_kolca)-sqr(radius_otverstia));
writeln(S_kolca);
end.
Знающие проверьте правильно ли написал  .
|
|
|