Задана окружность радиусом r=20 см . составите программу для нахождения её длины и площади ограниченного ею круга дано: r-радиус вход.s pi=3.14 найти; s-площадь . выходные s; с-длину алгоритм 1 ввести r 2 вычислить s=2*pi*sqr(r) 3 вычислить с=2*pi*r 4 вывести s,c решите подробно
144
158
Ответы на вопрос:
Program test; const pi=3.14; //пи делаем константой, потому что оно не меняестся var r,s,c: real; //переменные типа real что бы можно было записывать дробные значения begin write('введите радиус: '); readln(r); //вводим радус s: =pi*sqr(r); //вычисляем площадь c: =2*pi*r; //вычисляем длину окружности writeln('s = ',s); // writeln('p = ',c); //выводим результат end.
Var a, d, c, z, x : integer; beginreadln(a); d: = a div 100 ; c: =a mod 100; z: = c div 10; x: =c mod 10; writeln(x,z,d)end. (для паскаля)
Популярно: Информатика
-
alef91105.10.2022 16:58
-
Maks18909924.11.2021 20:55
-
мая10112.06.2023 03:53
-
BRAJJ12.07.2020 08:29
-
зайка58401.05.2020 17:14
-
ruslan200318502.10.2021 20:06
-
аомоомооар11.08.2020 06:45
-
Opasnaya200118.01.2020 07:55
-
shakenovdarhan20.04.2023 05:55
-
Masha20060504.05.2021 10:15