Написать программу в паскале. дана площадь s круга. найти его диаметр d и длину l окружности, ограничивающей этот круг, учитывая, что l = 2·π·r, s = π·r^2 . в качестве значения π использовать 3.14.

218

263

Посмотреть ответы 2

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

милена0071

Информатика

4,7(20 оценок)

Program qwer; uses crt; var s, r, d, l: real; begin write('площадь круга: '); readln(s); r : = sqrt(s / 3.14); d : = r * 2; l : = 2 * 3.14 * r; writeln('диаметр: ',d); writeln('длина окружности: ',l); end.

nikasimonok2007

Информатика

4,6(51 оценок)

Program znanija; var s,nc,c,i: integer; begin for i: =1 to 10 do begin read(s); if odd(s) then inc(nc); if not odd(s) then inc(c); end; writeln('чётных: ',c,' не чётных: ', nc); end.