4 года назад

Помогите СРОЧНО НАДО написать программу в паскале вычисления площади круга если известна длина окружности

1 ответ:

0 0

Формула вычисления длины окружности $L=2\pi R$ , откуда радиус окружности $R=\frac L{2\pi}$ . Подставляем радиус в формулу площади $S=\pi R^2$ и получаем $S=\frac{L^2}{4\pi}$

var S, L: real;

begin

read(L);

write(L * L / (4 * PI))

end.

Читайте также

Люди каких профессий работают с символьной, графической и звуковой информации? Профессия и программное обеспечение.

AnnWayland [21]

операторы машинного доения
рекламащик
инженер программист

0 0

4 года назад

Напишите программу, которая вводит натуральные числа a и b и вводит все простые числа в диапазоне от a до b. Спасибо :)

Романо Итальяно [171]

Var
 a, b, i, j, found: integer;

begin
 readln(a, b);

 for i := a to b do
 begin
 found := 1;

 for j := 2 to round(sqrt(i + 1)) do
 begin
 found := found * (i mod j);
 if found = 0 then break;
 end;

 if found <> 0 then write(i, ' ');
 end;
end.

0 0

4 года назад

Помогите с решением задания по логике

Prizrak243

8.
Так как при x∈Р и х∉Q, т.е. на промежутках [3;6] и [12;20], не зависимо от промежутка А функция будет равна 1.
Остается вторая часть, т.е. х∉А (или иначе ¬(х∈А)). Значит А должно совпадать либо с промежутком [3;6], либо с [12;20]. Первый промежуток имеет длину 3, второй - 8. Выбираем наибольший, т.е. 8.

0 0

4 года назад

РЕБЯТ, ОЧЕНЬ СРОЧНООО!!! Cформировав двухмерный массив размерностью 10 к 10 присвоить значение 7 элементам, имеющим четные индек

Анатолий 19903011

Int a[10][10];
a[0][2] = 1;
a[0][4] = 2;
a[0][6] = 3;
a[0][8] = 4;
a[2][2] = 5;
a[2][4] = 6;
a[2][6] = 7;

0 0

4 года назад

В одномерном массиве A=(a1, а2, ..., аn) удалить все отрицательные элементы, расположенные между положительными.(Паскаль)

Нэт1111

Var
a, b: array[1..110000] of integer;
i, n, j, cnt: integer;
begin

Readln(n);
for i := 1 to n do
Read(a[i]);
Write(a[1], ' ');
for i := 2 to n - 1 do
Begin
if a[i] > 0 then Write(a[i], ' ');
i if (a[i] < 0) and (a[i - 1] > 0) and (cnt = 0) then for j := i to n do begin if (j = n) and (a[j] < 0) then
begin
cnt:= 0;
break;
end;
if a[j] > 0 then
break
else
cnt:= cnt + 1;
end;
if cnt = 0 then Write(a[i], ' '); if cnt > 0 then cnt := cnt - 1;
end;
Write(a[n]); end.

0 0

4 года назад