02.04.2010, 14:36
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
Вот отлаженная и исправленная версия EndLeSSDre@M
PHP код:
type
real = extended;
var
so,sk,s,rk,ro: real;
ok: boolean;
begin
ok:=false;
while not ok do
begin
writeln('vvedide radius colca');
readln(rk);
writeln('vvedide radius otverstia');
readln(ro);
if rk<=ro then writeln('ne vernij vvod')
else
begin
sk:=pi*sqr(rk);
so:=pi*sqr(ro);
s:=sk-so;
writeln('Ploshad=',s:0:3);
ok:=true;
end;
end;
readln;
end.
В Паскале ^ нельзя использовать, так же в константу пихать pi не нужно, она и так есть  |
|
|