радиус описанной вокруг правильного n-угольника окружности находится по формуле:
собственно программа:
var
n : integer; // количество сторон (углов)
a : integer; // длина стороны
begin
write('введите количество сторон n= ');
readln(n);
write('введите длину стороны a= ');
readln(a);
writeln('радиус описанной окружности r=', a/2*sin(180/n));
end.
uses crt;
var s:string;
i,k:byte;
begin
repeat
writeln('Введите строку из 20 символов');
read(s);
until length(s)=20;
k:=0;
writeln('Строчные латинские буквы, входящие в строку');
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
begin
write(s[i]);
k:=1;
end;
if k=0 then write('Строчных латинских букв нет')
end.
uses crt;
var s:string;
i,k:byte;
begin
repeat
writeln('Введите строку из 20 символов');
read(s);
until length(s)=20;
k:=0;
writeln('Замены макс на мин и max на min');
for i:=length(s)downto 1 do
if copy(s,i,4)='макс' then
begin
delete(s,i,4);
insert('мин',s,i);
k:=k+1;
end
else if copy(s,i,3)='max' then
begin
delete(s,i,3);
insert('min',s,i);
k:=k+1;
end;
writeln(s);
if k=0 then write('Замен нет')
else write('Количество замен=',k)
end.
Поделитесь своими знаниями, ответьте на вопрос:
Установите соответствие между перечисленными функциями и частями клетки: части клетки функцииa) граница 21. цитоплазмаб) заполняет пространство2. клеточная мембрана в) объединяет структуры клеткиг) обмен веществд) транспорт веществ таe) защита
ответ:
го дружить ?????