На столі стоять три вази з цукерками. в лівій вазі лежить а цукерок, в середній вазі - в цукерок, а в правій відповідно с цукерок. степан з'їдає одну цукерку з середньої вази, потім з правої, середньої, лівої, середньої, правої, середньої (зліва направо, потім наліво, знову направо і т. якщо степан хоче взяти цукерку з якоїсь вази, а там її немає, то він засмучується і йде спати. визначте скільки цукерок з'їсть степан.
вхідні дані:
дано 3 цілих невід'ємних числа a,b,c (a+b+c< 2*10 в девятой степени) - кількість цукерок в лівій, правій и середній вазі
вихідні дані:
одне число - к-сть цукерок, які з'їв степан.
Камилла и Эльдар = не информатика
Тимур = боится физики
Камилла, Тимур = не литература, но плавают
Тимур и Камилла = поздравили математика
Ирена = cожалеет мало времени на литературу
победители по: физике, математике, информатике, литературе и географии.
Залим - информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются)
Тимур - не физика, не литература, не математика, не информатика,
значит география
Камилла - не информатика, не литература, не математика, уже не география => Физика
Ирена - не информатика, не физика, не география => Литература
Эльдар - Математика
const
pi=3.14;
var
N:integer;
Z:real;
R,D,L,S:real;
begin
Writeln('Введите номер элемента N=');
readln(N);
Writeln('Введите значение элемента Z=');
readln(Z);
case N of
1:begin
R:=Z;
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
2:begin
R:=Z/2;
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
3:begin
R:=Z/(2*pi);
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
4:begin
R:=sqrt(Z/pi);
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
else Writeln('ошибка');
end;
end.