составить алгоритм и программу вычисления площади форма значение R водится с клавиатуры. Помогитн очень срочно!!!!!!
5-9 класс
|
const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.
Круг с большим радиусом а в нем малый круг с радиусом 20
Комментарий удален
Другие вопросы из категории
А)запись текста в буфер
В)удаления текста
С)отмену предыдущей операции совершенной над текстам
D)автоматическое расположение текста в соответствие с определенными правилами
байтов информации. Сколько строк на странице, если символов в каждой строке 25
и использована кодировка Unicode?
этот алгоритм?».
Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;
Begin
Write('Введите количество элементов: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); Readln(A[I]);
End; WriteLn;
For I := 1 To N - 1 Do
Begin
K := I;
For J := I + 1 To N Do If A[J] <= A[K] Then K := J;
Pr := A[I]; A[I] := A[K]; A[K] := Pr;
End;
For I := 1 To N Do Write(A[I], ' ');
End.
Читайте также
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
секунд.
3)Составте программу вычисления площади треугольника с основанием а и высотой h. Значение a и h введите с клавиатуры.
значения "а " и "h" введите с клавиатуры
помогите!
срочно!
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
Составить алгоритм нахождения площади и длины окружности если известен диаметр.