3 года назад

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

1 ответ:

Tasya17 [1]3 года назад

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.

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

Помогите,пожалуйста,решить задачу по информатике. С клавиатуры вводится 3 трёхзначных числа. Найдите сумму всех нечётных цифр в

Раиса Перехожева [2]

1. Современное решение, когда можно решить "в одну строку"

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
 .Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
 .Select(c->c.ToDigit).Sum)
end.

Пример
252 337 105
S=24

2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)

var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
 Read(m);
 for j:=1 to 3 do begin
 d:=m mod 10;
 if d mod 2<>0 then s:=s+d;
 m:=m div 10
 end
 end;
Writeln('S=',s)
end.

0 0

4 года назад

Помогите пожалуйста срочно нужно.... Упростите

Death13Lady

F= ¬(X+Y+¬(X*Y))*¬(X*Y)
F= ¬(X+Y+¬X+¬Y)*¬(X*Y)
F = ¬1 *¬(X*Y)
F=0*¬(X*Y)
F = 0

0 0

3 года назад

Увеличить переменную a в 50р.,если a нечетное число иначе увеличить на 30РЕБЯТ ОЧЕНЬ НУЖНО!

александрс2

Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.

0 0

4 года назад