Pascal (free) пусть элементами круга являютс радиус (1-й элемент), диаметр (2-й элемент), длина окружности (3-й элемент). по номеру одного из перечисленных элементов и его значению вычислить площадь круга

242

315

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

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

3457ДашаСупер111

Информатика

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

var i: integer;

s,v: real;

begin

read(i,v);

case i of

1: s: =pi*v*v;

2: s: =pi*v*v/4;

3: s: =v*v/pi/4;

end;

writeln(s);

end.

ponomareva1947

Информатика

4,5(42 оценок)

// pascalabc.net 3.1, сборка 1214 от 09.04.2016 begin var a: =arrrandomreal(readinteger('n=',20); a.println; writeln('положительных: ',a.where(x-> x> 0).count) end. тестовое решение: n= 7 -17.1342332089014 3.03964398011549 16.2039925512876 -6.95437877762801 13.9224117034685 -1.08502876995366 11.8818603045688 положительных: 4