Регистрация
Jdudn
07.11.2021 09:56
Информатика
Есть ответ 👍

Написать программу. данн радиус окружности. найти длину окружности и его площадь

288
482
Посмотреть ответы 3

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

20042007rbn
20042007rbn
4,7(100 оценок)
Var } r,d: integer; rar } begin writeln('введи значение радиуса ',r); readln(r); d: =r*2; writeln('диаметр ',d); end.
shulyakovatati
shulyakovatati
4,5(37 оценок)
Var pi, r: real; begin pi : = arccos(-1); write('введите радиус -> '); readln(r); writeln('c = ', 2*pi*r); writeln('s = ', pi * r * r); end. пример: введите радиус -> 3 c = 18.8495559215388 s = 28.2743338823081
КАЗ777
КАЗ777
4,4(12 оценок)

var a: array[1..1000] of integer;

n,i,s1,s2,s3: integer;

s1: =0;

read(n);

for i: =1 to n do

read(a[i]);

for i: =1 to n do

if i mod 2 = 1 then s1: =s1+a[i] else s1: =s1-a[i];

s2: =a[1]+a[n];

s3: =a[1]-a[2];

writeln(s1,' ',s2,' 's3);

end.

 

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