Есть ответ 👍

Задана окружность радиусом 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
Посмотреть ответы 2

Ответы на вопрос:


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. (для паскаля)

Популярно: Информатика