Program ALJSHVEC; uses crt; var r:real; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); writeln('Введите радиус'); write('R = '); readln(r); if r<0 then writeln('Вы ввели отрицательное число!') else if r=0 then writeln('Вы ввели R=0. Длина окуржности равна 0.') else writeln('Длина окуржности равна ',2*pi*r); end.
Вместо "введённые данные некорректны" можете поставить что угодно. C - длина окружности R - радиус окружности Язык програмирования: Паскаль Программа без цикла. var C,R:real; begin read(R); if R>=0 do begin C:=2*3.14* R; writeln(C); end; else write('введённые данные некорректны'); end.
Проверено на Паскале АВС
Program ALJSHVEC;
uses crt;
var
r:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln('Введите радиус');
write('R = ');
readln(r);
if r<0 then
writeln('Вы ввели отрицательное число!')
else
if r=0 then
writeln('Вы ввели R=0. Длина окуржности равна 0.')
else
writeln('Длина окуржности равна ',2*pi*r);
end.
Вместо "введённые данные некорректны" можете поставить что угодно.
C - длина окружности
R - радиус окружности
Язык програмирования: Паскаль
Программа без цикла.
var
C,R:real;
begin
read(R);
if R>=0 do
begin
C:=2*3.14* R;
writeln(C);
end;
else
write('введённые данные некорректны');
end.