Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.
ОБЪЯСТНИТЕ КАК НАХОДИТСЯ S НЕ ДОКОНЦА ПОНИМАЮ

alina067    1   16.03.2020 18:34    2