Developing.ru

нужно написать программу, которое циклически запрашивает значение радиуса и подсчитывает длинну окужности пока не будет введён R<0

Сделаю. Договоримся! 255507394

Обращайтесь. Сделаю быстро и недорого.
xranger@mail.ru

[syntax="pascal"]
uses crt;
var R,C:real;
begin
repeat
clrscr;
write('Vvedite radius: ');
readln(R);
C:=2*pi*R;
write('Dlina okr.: ',C:6:2);
readln;
until R<0;
end.
[/syntax]